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Fifth Edition (May, 1969) 

This publication is a major revision of, and obsoletes, 
Z28-6682-1. 

A new section on compiler- generated code is included in this 
edition. The information on compile- time facilites has been 
expanded. New and modified compiler options are covered. 
Significant changes in technical information (additions, 
deletions, alterations) can also be found under the following 
headings : 

Compiler Operation 

Summary of Compiler Options (Table 1) 

Modifying Dictionary Size, Source Margins, and Control 

Character 

Using the GENMGIN Option 

Ending a Block GENERATE 

Options to Print or Suppress Source Listings 

Options to Format Source Listings 

Options to Punch or Store Assembler Text 

Options to Annotate Assembler Text 

Description of DOS Files Used by the Cojnpiler (Table 2) 

Compilation Without Assembly (DOS) 

Compilation, Assembly, and Execution (DOS) 

Storing Text in External Libraries (DOS) 

Specifying INCLUDE Option of Macro Statement (DOS) 

Description of OS Data Sets Used by the Compiler (Table 4) 

Cataloged Procedure BSLX (Figure 7) 

Cataloged Procedure BSLASM (Figure 8) 

Cataloged Procedure BSLALG (Figure 9) 

Alternate DD Names (Table 5) 

Labels Generated by the Compiler (Table 7) 

BSL Size Restrictions (Table 10) 

Initialization 

String Items 

Subscript Notation 

Substring Notation 

Avoiding Parameter References 

The Compile-Time Processor and the GENERATE Statement 

Program Parameterization 

Compile-Time Macro Processor (Formerly Appendix B. Has been 

deleted) 

Diagnostic Messages and Codes (Appendix E) 

Changes to the text, and small changes to the illustrations, 
are indicated by a vertical line to the left of the change; 
changed or added illustrations are denoted by the symbol • to 
the left of the caption. 

Specifications contained herein are subject to change from 
time to time. Any such change will be reported in the BSL 
Bulletin, an internally distributed newsletter covering 
various BSL topics. 

Copies of BSL publications are available from Department 
D76, Systems Development Division, Poughkeepsie, New York. 
Requests for the addition of names to the BSL Bulletin dis- 
tribution list should also be directed to this address. 
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Preface 



This piiblication provides you (the systems programmer) with the informa- 
tion necessary to compile, assemble,, linkage edit, and execute programs 
written in the Basic Systems Language (BSD . 

Section 1 is an introduction to the functions of the BSL compiler. 
Section 2 describes the various compiler options that you can specify. 

Section 3 explains how to process BSL programs with the IBM System/ 
360 Disk Operating System (DOS) ; and Section 4 covers the same type of 
material for the IBM System/360 Operating System (OS). In each of these 
sections, knowledge of the particular operating system is assumed. 

Section 5 discusses compiler conventions for the generation of 
assembler text output and the restrictions that affect the type of pro- 
gram you can successfully compile. 

Section 6 deals with compiler-generated code. Section 7 describes 
programming techniques. The initial Appendixes contain examples of cod- 
ing and compiler output. The final Appendix lists and explains the 
diagnostic messages that may occur during use of the compiler. 

Additional information about BSL can be obtained from the following 
publications : 

Basic Systems Language Primer , Form Z 2 8- 6 67 8 

BSL Language Specification , Form Z 28- 6 6 42 

BSL Library 



This document contains information of a proprietary nature. ALL INFOR- 
MAiTION CONTAINED HEREIN SHALL BE KEPT IN CONFIDENCE. None of this 
information shall be divulged to persons other than IBM employees 
authorized by the nature of their duties to receive such information or 
individuals or organizations authorized by the Systems Development 
Division in accordance with existing policy regarding release of company 
information. 
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Section 1: Introduction 



The translation of a Basic Systems Language (BSD source program into a 
Systera/360 object program requires a compilation and an assembly: 

1. The BSL compiler translates the BSL source statements into assem- 
bler language instructions which serve as input to a System/ 360 
assembler. Usually, a number of assembler language instructions 
result from each BSL source statement. 

2. The System/360 assembler translates the compiler's output into an 
object module. 

Figure 1 illustrates the flow of a BSL source program through the two 
steps of translation, and through subsequent steps of linkage editing 
and execution. As shown, the object module produced by the assembler is 
processed by a linkage editor to add any routines required from BSL or 
user libraries. The resulting load module is loaded into main storage, 
and control is passed to it for execution. 

Compiler Operation 

The BSL compiler runs as a problem program under the IBM System/360 Disk 
Operating System (DOS) or the IBM System/360 Operating System (OS). 
Under DOS, the compiler requires a machine configuration with 128K bytes 
of main storage. Under OS, the compiler requires 100,000 bytes of main 
storage in addition to the storage required by the operating system, and 
the compiler's dictionary (see SIZE option), as well as input and output 
buffers . 

You use an appropriate sequence of job control statements to execute 
the BSL compiler as a job step under DOS or OS. Optionally, you can 
follow the compilation with job steps that perform assembly, linkage 
editing, and execution of the program. For OS users, a set of cataloged 
procedures facilitates the handling of these operations: 

• BSLX is a cataloged procedure for the compile-only operation. 

• BSLASM is a cataloged procedure for compilation and assembly. 

• BSLALG is a cataloged procedure for compilation, assembly, linkage 
editing, and execution. 

In addition to executing the compiler as a job step, OS users can invoke 
the compiler dynamically during execution of a problem program. 

The BSL ccMnpiler offers many options which you can use to modify the 
compiler's input, modify the compiler's output, and test and debug your 
program. Most compiler options must be specified in compiler control 
statements that you include with the BSL source program in the compiler 
input. Compiler control statements are 80-byte records usually identi- 
fied by a dollar sign ($) control character in the first byte. Three 
special options (SIZE, SORMGIN, and CONCHAR) are available only for OS 
compilations, and are specified in the FARM field of the EXEC statement. 

Compiler- Generated Assembler Text 

Compilation of a BSL external procedure produces one assembler language 
control section (CSECT). Separate control sections are not generated 
for BSL internal procedures. 

Section 1: Introduction 9 
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Basic Flowchart for Handling a BSL Program 



The compiler follows certain conventions when it translates your BSL 
source program into assembler text. These conventions concern program 
format, statement labels, register usage, and program linkage. You will 
need this information to communicate with or modify BSL-produced pro- 
grams, or to include assembler text in your BSL source program. In 
addition, there are certain size and language restrictions which affect 
the type of program you can successfully compile. 

The assembler text output of the BSL compiler does not depend on any 
system macro instructions; therefore, it can be assembled, loaded, and 
executed under any System/360 programming system. (Exception: the 
REENTRANT procedure option can cause the compiler to generate a GETMAIN 
macro instruction.) 

Information Listings 

To assist in the development of your program, the BSL compiler produces 
information listings for each compilation. The listings include: 
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• The BSL source statements. 

• An attribute and cross-reference table. 

• Diagnostic messages. 

• The generated assembler text. 

You can use compiler options to partly suppress these listings or to 
change the listing format. 

When an incorrect statement is encountered in your BSL source pro- 
gram, the compiler flags the statement and writes a diagnostic message. 
The messages are numbered in the form snn; where s is an alphabetic 
character that indicates the severity level of the error, and nn is an 
integer that numbers the message within its severity group. Messages 
from the BSL compile-time macro facility are numbered in the same man- 
ner, but are prefixed by the letter M. 

Note; The examples of coding and job control statements contained in 
this manual are presented for your guidance. In actual use, these 
examples should be modified to suit your particular needs. 
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Section 2: Compiler Options 



This section describes all options available with the BSL compiler. You 
use the options to: 

• Modify or supplement the compiler input. 

• Modify, suppress, or supplement the compiler output. 

• Trace entry points and branches. 

Table 1 is a summary of all compiler options. For each item, the 
table shows the form of specification, the placement in the input 
stream, the general function, and the default condition. The items are 
listed in the same order as they are described later in this section. 

•Table 1, Summary of Compiler Options (Part 1 of 3) 



Specification 



SIZE=number2 



FARM 



Function 



Default 



Place- 
ment^ 

Indicates the size of 
the compiler 
dictionary. 



SIZE=30 



■I 



SORMGIN= (xxx,yyy) ^ 



FARM 



Indicates the margins 
of the compiler input 
records. 



SORMGIN=(001,072) 



C0NCHAR=x2 



INCLUDE 

ddname ( member ) ' 

or 
jsublibrary 
(bookname) 



+ 

PARM 



-+ 



$c 



Specifies the character 
that identifies compil- 
er control statements. 

Includes source state- 
ments from external 
library. 



CONCHAR=$ 






MACRO 



$a 
$a 



Invokes the compile- 
time macro facility. 



No macro phase^ 



GENMGIN= ( XXX , yyy ) 



Specifies columns to be 
used as input for 
assembler language in a 
block GENERATE. 



Column 1 to the 
right column of the 
the object margin.** 



ENDGEN I $c j Indicates the end of a 

block GENERATE. 

$$$ I $d I Control characters 

assigned by CONCHAR 
that separate BSL 
external procedures in 
batch compilation. 






(Part 1 of 3) 
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Table 1. Summair^ 

r 

Specification 



of Compiler Options (Part 2 of 3) 



h 



Place- 
ment^ 



Function 



Default 



NOLIST 



$a 



XREF 



— + 



Suppresses all compiler 
listings except for 
control statements, 
time, and error 
messages. 



Listing- 



I 

NOXREF 






$a 



$a 



Causes attribute and 
cross-reference table 
to be listed - 

Suppresses the attri- 
bute and cross-refer- 
ence table. 



XREF. NOXREF 
if NOLIST is 
specified. 

Attribute and cross- 
reference table^ 



MSGLEVEL= 



il) 



TITLE=' title* 



-+— 

$a 

— +— 

$a 



Controls the printing 
of warning messages. 



MSGLEVEL=0 



Provides a heading for 
each page of compiler 
output. 



No titled 



I 

PAGE=number 



NOPAGE 



$a 



+— 

$a 



EJECT 



$b 



Indicates the starting 
number for output page 
numbering. 

Suppress page numbers 
on compiler output. 
+ 



PAGE=0001 



Page numbers^ 



Causes a page eject m 
the BSL source program 
listing. 



No eject^ 



TIME 

I 

LINE 



$a 

4— 

$a 



NOSNUMBER 



-™+ 



Obtains a printing of 
the compilation time. 

Input line number 
replaces statement 
number in attribute and 
cross-referenece table 
and in error messages. 



No time 3 



Uses statement 
numbers . 



$a 



Suppresses assembler 
text references to the 
BSL statement numbers. 



BSL statement num- 
ber references^ 



SEQ= 

( ' character 
string ' , 
left col., 
right col.) 



$a 



Indicates character 
string and starting 
sequence number to be 
placed between 
specified columns of 
assembler text. 



— + 



SEQ= 
(•bBbO0OO0»,73,8O) 



I 

INCR= 

( * increment 
value , • 
left col., 
right col.) 



$a 



Indicates the increment 
value for the character 
string and sequence 
number given in SEQ 
option for assembler 
text. 



INCR=(«00010',76,80) 



(Part 2 of 3) 
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Table 



Summary of Compiler Options (Part 3 of 3) 



Specification 



Place- 
ment^ 



Function 



Default 



RESEQ= 
( • character 
string ' , 
left col., 
right col.) 

I— 

NOSEQ 



$b 



Indicates character 
string to 
replace character 
string in SEQ 
statement 



No change in 
SEQ number 






$a 



Suppresses assembler 
text sequence niiimbers 



Sequence numbers ^ 



INTER 



$a 



l~- 



Intermixes the 
generated assembler 
text with the BSL 
source statements on 
the source listing. 



No intermix^ 



-+- 



ANN0TATE=<1 



$a 



PUNCH 



$a 



Adds comments to the 

generated assembler 

text. 

_ ^ 

Provides punched output 
of the generated assem- 
bler text. 



No annotate^ 



No punch^ 



+ 



ASSEM 



$a 



l~- 



Writes assembler text 
on auxiliary storage 
for subsequent use. 



ASSEM 



-+ 



NOASSEM 



$a 



No assembler text writ- 
ten for subsequent use 



ASSEM 



-+ 



TRACE tOFFSET=n] 



$a 



h 



Specifies program 
tracing. 



No trace 3 



TRACE ON 



$c 



Indicates the starting 
point for the trace 
operation. 



TRACE OFF 



$b 



h 



Indicates the stopping 
point for the trace 
operation. 



^Placement Codes: 

PARM — In the FARM field of the EXEC statement for the BSL 

compiler. 
$a — In a control statement preceding the BSL source program. 

(Free-form) 
$b — In a control statement within the BSL source program. (Not 

free-form) 
$c — In a control statement anywhere in the compiler input. (Not 

free-form) 
$d — Between BSL external procedures. (Not free-form) 

^Options available only with OS. 

^The default cannot be specified in a control statement. 

'^The object margins are column 1 and the last column of output before 
sequencing information begins. 
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Specifying the Options 

Three special options (SIZE, SORMGIN, and CONCHAR) are available only 
for OS compilations, and are specified in the PARM field of the EXEC 
statement. All other options must be specified in compiler control 
statements (i.e. , control cards) which you include with the BSL source 
program in the compiler input - 

Parameters of the EXEC Statement (OS Only) 

To use the SIZE, SORMGIN, or CONCHAR options, you must specify the 
appropriate keyword in the FARM field of the EXEC statement for the OS 
compiler job step.. You need only specify the options you require, and 
they can be specified in any order. 

The following example shows how to code options in the PARM field of 
an EXEC statement that invokes the BSL compiler: 



r 1 

J//STEPA EXEC PGM==BSL,PARM='SORMGIN=(003,072),SIZE=96* | 

L J 



The following example shows how to code options in the PARM field of 
an EXEC statement that uses one of the BSL cataloged procedures: 



I 1 

j/ZSTEPA EXEC BSLALG,PARM. STEPl=' SIZE=96 ,CONCHAR=a ' | 

L J 



Compiler Control Statements 

All compiler options except SIZE, SORMGIN, and CONCHAR are specified in 
compiler control statements, as follows: 

• A control statement is an 80-byte record — usually a card. The 
compiler scans columns 1-72 for option specifications. (Under OS, 
you may use the SORMGIN option to change the beginning and ending 
columns.) A control statement may not be continued beyond a single 
card, but you may use as many control statements as you need. 

• A control statement is identified by a dollar sign ($) in the first 
column. (Under OS, the first column refers to the left-most source 
margin, and you can use the CONCHAR option to establish an identi- 
fication character other than the dollar sign.) 

• Most options can be coded free- form in the control statement. One 
or more of th€ise free-form options can be included in a single con- 
trol statement. The options must be separated by commas, but the 
use of blanks is not restricted. 

• The following options are not free-form: INCLUDE, ENDGEN, TRACE 
ON, TRACE OFF, and EJECT. Each of these options must be coded in a 
separate control statement, and must immediately follow (no space) 
the control character. 

Section 2: Compiler Options 15 
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The following example shows several ways you might code any of the 
free-form options: 

r 

I $ASSEM, TIME , NOSEQ 

I 

I or 

I 

1$ ASSEM, TIME 
I $ NOSEQ 

I 

I or 

I 

I $ASSEM 
I $ TIME 
I $ NOSEQ 

L 

The following example shows how you must code the options which are 
not free-form: 

r ■ ■ *" 

I $ INCLUDE ddname (manber name) 

|$ENDGEN 

|$TRACE ON 

i$TRACE OFF 

I $ EJECT 

L , . 

Control statements are included with the BSL source statements in 
the compiler input. Compiler control statements must precede the BSL 
source statements, except as follows: 

• Control statements that specify the ENDGEN or TRACE ON options can 
appear before or within the BSL source statements. 

• Control statements that specify the EJECT or TRACE OFF options can 
only appear within the BSL source statements; that is, they must 
not appear before the start of the source program. 



Modifying Compiler Input 

To modify compiler input, you can choose from a number of available 
options. These options are described in the following paragraphs. 

Modifying Dictionary Size, Source Margins, and Control Character 

If you compile under OS, you may adjust the compiler's dictionary size 
to provide more efficient storage utilization. You may also change the 
margins on the source statements or change the control character to 
avoid conflicts with other processors. To accomplish these modifica- 
tions, you specify the appropriate options in the FARM field of the 
EXEC statement for the compiler job step. (If the compiler is dynamic- 
ally invoked, these options may be passed as parameters — see Section 
4.) These options are: 

SI ZE=number 

indicates the size of the compiler dictionary. You specify a 
three-digit decimal number which, when multiplied by 1000, deter- 
mines the number of bytes of storage to be allocated for dic- 
tionary space. You may specify a number from 001 to 128. If you 
do not specify this option, the compiler uses a dictionary size of 
30,000 bytes. 

16 
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To determine the approximate dictionary size that is required to 
compile an external procedure, use the following formula: 

Approximate Dictionary Size (in bytes )=( 37*V1) +( U*V2) +V3 where: 

VI = the total number of identifiers in the program. 

V2 = the total number of references to all identifiers in the pro- 
gram. (This value is zero if you specify the NOXREF option.) 

V3 = the total number of characters included in INITIAL 
attributes. 

If you compile under DOS, you cannot specify the SIZE option. The 
compiler uses available storage for its dictionary space. 

SORMGI N= ( XXX , yyy ) 

indicates the margins of the source and control statements to be 
read by the compiler. You must specify three-digit decimal num- 
bers for XXX and yyy, where: 

XXX is the left margin. The compiler begins scanning each input 
statement at the column designated by xxx. The number can be from 
001 to 065. 

yyy is the right margin. It is the last column scanned by the 
compiler for possible input. The number can be from 015 to 080. 

The number xxx must be less than the number yyy, and the dif- 
ference between the numbers must provide an input record of at 
least 15 columns. If you do not specify the source-margin option, 
the compiler uses columns 001 through 072. 

The source-margin option does not control the margins of assembler 
text within a block GENERATE statement. The margins of the 
assembly text are controlled by the GENMGIN option. 

If you compile under DOS, you cannot specify the SORMGIN option. 
The compiler always uses columns 1-72 for the source margins. 

CONCHAR=x 

indicates the character that appears in the first column (left- 
most margin) of all compiler control statements. You may specify 
any EBCDIC character except the single quote (*). If you do not 
use the CONaiAR option, the compiler identifies control statements 
by the appeairance of a dollar sign ($) in the first column. 

If you compile under DOS , you cannot specify the CONCHAR option. 
The compiler always uses the dollar sign ($) for the control 
character. 

When you compile under OS, there are two special cases that require 
use of the SORMGIN or CONCHAR options. These are: 

Section 2: Compiler Options 17 
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1, When you want to use the output of the PL/I macro processor as 
input to the BSL compiler, you must specify SORMGIN=(002, 072) for 
your BSL compilation. This is necessary because the output mar- 
gins of the PIi/I macro processor are always 2-72. 

2. When you want to maintain BSL source programs as libraries under 
the CLEAR system, then the dollar sign ($) must not appear in 
columns one or two of the BSL source statements. The CLEAR system 
has a reserved meaning for the dollar sign in these positions. To 
avoid conflict with CLEAR, you can use the SORMGIN option to 
establish column three as the left source margin, or you can use 
the CONCHAR option to change the dollar sign identification. (See 
"Using the Clear Facilities," Section 4.) 

Including BSL Source Statements From a Library 

The INCLUDE option allows you to keep certain standard declarations or 
sections of source code in external libraries. As needed, these items 
can be obtained from the libraries during compilation, and included in 
your programs. 

The INCLUDE option is specified in a compiler control statement. 
For a complete description of the option and the libraries, refer to 
Section 4 which describes OS compilation or Section 3 which describes 
DOS compilation. 

Using the Compile-Time MACRO Facility 

The MACRO option invokes the compiler's macro phase (a compile-time 
modification of the source text) . The macro phase starts immediately 
following the compiler control statement that contains the MACRO 
option, and processes all input from that point to the end of file or 
$$$. You should note that: 

• The macro phase and the compile phase use the same source margins 
(see SORMGIN option). 

• The control character in macro statements is always %, and is not 
affected by the CONCHAR option. 

The macro phase writes the modified source text on intermediate 
storage for subsequent use in the compile phase. Under DOS, the inter- 
mediate text is directed to the file with the symbolic name SYS002. 
Under OS, the intermediate text is directed to the data set with the 
ddname SYSUT3. 

Using the GENMGIN Option 

The GENMGIN option specifies the columns that will be used as input for 
the assembly language in a block GENERATE. The format of the option is 
GENMGIN= (xxx,yyy) . 

XXX indicates the left input column. This column will be put in 
column 1 of the generated output. 

yyy indicates the right input column. This column will be put in 
the continuation column of the output. 
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If GENMGIN specifies columns that are the same as the object margin, 
then the code to be generated remains in the same columns. (If no 
object margins are specified, the default values are columns 1 and 72.) 
If, for example, the specification is: 

GENMGIN=(001, 072) 

the code to be generated remains in the same columns. 

If GENMGIN specifies fewer input columns than there are output 
columns between the object margins, blanks are generated for the dif- 
ference. The rightmost column of input will be placed in the continua- 
tion column. If, for example, the specification is: 

GENMGIN=(005, 071) 

the BSL compiler will put the code to be generated into columns 1 
through 67, Blanks will be generated to column 72. The character that 
is placed in column 67 will also be placed in column 72. 

If GENMGIN specifies more input columns than there are output 
columns between the object margins, truncation will occur. The right 
most column of input will be placed in the continuation column. If, 
for example, the specification is : 

GENMGIN=(001,079) 

the BSL compiler v/ill put columns 1 through 71 of the code to be 
generated into columns 1 through 71. Characters in columns 72 through 
78 will be truncated. The character in coliimn 79 will be placed in 
column 72. 

Ending a Block GENERATE 

The compiler recognizes the end of a block GENERATE when it encounters 
a compiler control statement with the word ENDGEN. However, the 
GENERATE Statement (at the beginning of a block GENERATE) is not a com- 
piler control statement. Thus, the format of a block GENERATE is: 



GENERATE [DATA] ; 



$ENDGEN 

L J 

Delimiter for Batch Compilation 

When you use the batch compilation process, you separate the external 
procedures with a compiler control statement consisting of three dollar 
signs ($$$). The $$$ statement must follow each external procedure in 
the batch — except the last. 

The three dollar signs must appear in the first three columns (at 
the left source margin) of the compiler control statement. If you use 
the CONCHAR option, all three dollar signs must be replaced by the 
appropriate control character. 
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DCi X FIXED (15) : 
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0005 


X = X+I; 










0006 


END; 
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00010 








STM 3E,aC,12(3D) 


0001 


00020 








BALB 3B,0 


0001 
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ST 3D,aSAV001+4 


0001 
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00150 








BCR 15,aE 


0006 
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00190 






0)2 
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EQU 05 
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37 


EQO 07 
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3D 
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X 
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Y 


EQU SDATA+00000076 FULLWOBD INTEGER 
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DS OF 
END 
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Figure 2. Example of Compiler Output 
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Modifying Compiler Output 

As its basic out pint, the compiler lists the BSL source statements, an 
attribute and cross-reference table, the generated assembler text, and 
diagnostic messages. Figure 2 shows an example of the output. In the 
figure, the circled letters point out the various output items, as 
explained below: 

• Item A is a listing of the BSL soiirce statements. Page headings 
(Item D) are obtained only when you specify the TITLE option. The 
page numbers (It on E) can be changed or suppressed by the use of 
options. The BSL statement numbers (Item F) are produced during 
compilation. 

• Item B is a listing of the attribute and cross-reference table. 
The table contains reference information for each variable in the 
BSL program. There are three parts to the table: 

1. The first column (Item G) shows the number of the BSL source 
statement in which the variable was declared. An asterisk 
following the statement number indicates that the attributes 
were assigned by default. 

2. The second column (Item H) lists the identifiers in collating 
sequence.. Any referenced but undefined labels are denoted by 
the letter U which appears to the right of the identifier. 

3. The third column shows the list of attributes (Item J) 
assigned to the variable. The PARAMETER attribute is given 
for items which are parameters to procedures or procedure 
entry points. The thitd column also shows the number of the 
statement (Item K) in which the variable is referenced. 

• Item C is a listing of the generated assembler text. The reference 
to BSL statement numbers (Item L) shows which assembler text was 
generated for each BSL statement. A column is provided (Item M) 

j for an identification name that you can specify with the SEQ 
option. The assembler text sequence numbers (Item N) can be 
changed or suppressed by the use of options. 

To suppress, supplement, or format the basic compiler output, you 

can choose from a number of available options. These options which 

must be specified in compiler control statements, are described in the 
following paragraphs. 

I Options to Print or Suppress Source Listings 

You can use options to suppress the printing of all or part of the com- 
piler listings. These options are: 

NOLIST 

suppresses the printing of all compiler listings, except for list- 
ings of control statements, time, and error messages. 

XREF 

causes an attribute and cross-reference table to be listed even if 
the NOLIST option has been used. 

NOXREF 

suppresses printing of the attribute and cross-reference table. 

MSGLEVEL=n 

controls the printing of warning messages. MSGLEVEL=0 is the 
default option and allows printing of the warning messages. 
MSGLEVEL=1 suppresses printing of the warning messages. 
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I Options to Format Source Listings 

You can use options for heading and paging the listings, and to obtain 
a printed compilation time. These options are: 

TITLE=' Title' 

provides a heading for each page of the output listing created by 
the compiler. If the TITLE option comes before the MACRO option 
it will also title the macro source listing. The title is printed 
with the first character printed in the same print position as 
column 1 of the source statement. You specify a character string 
enclosed in single quotes. With the normal source margins of 
1-72, the character string can contain a maximimi of 63 characters 
(including blanks). The other nine coliarans are required for the 
statement format $TITLE=". 

PAGE=number 

indicates the initial page number to be used on the printed output 
of the compiler. You specify a niimber up to four decimal digits, 
with or without leading zeros. If you do not use this option, the 
compiler numbers the pages starting from number one. 

NOPAGE 

eliminates the page numbers from the output listing created by the 
compiler. 

EJECT 

causes a page eject whenever this option is encountered within the 
BSL source program or the macro source listing. The word EJECT is 
not printed on the source listing. This option has no effect on 
the page format of the generated assembler text listing. 

TIME 

indicates that the time required for the BSL compilation is to be 
printed on the output listing. The compilation time is shown in 
nimutes and seconds, and represents the total elapsed time from 
the beginning of compiler execution to its termination. 

LINE 

causes the input line number to be used in place of the statement 
number in the attribute and cross-reference table listing and in 
the error messages. 

Options to Punch or Store Assembler Text 

The compiler produces a printed listing of the generated assembler 
text. You can use options to punch or store this assembler text for 
use in subsequent operations. These options are: 

PUNCH 

indicates that the assembler text is to be punched. If you are 
compiling under DOS, the assembler text output is directed to the 
file with the symbolic unit name SYSPCH. If you are compiling 
under OS, the assembler text output is directed to the data set 
with the ddname SYSPUNCH. With this option, you get the printed 
listing of assembler text as well as the punched output. 

ASSEM 

indicates that the assembler text is to be written on auxiliary 
storage (provides input to the assembly operation.) ff you are 
compiling under DOS, the assembler text output is directed to the 
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file with the symbolic unit name SYSOOl. If you are compiling 
under OS, the assembler text output is directed to the data set 
with the ddname SYSUT2. 

MOASSEM 

indicates that no assembler output for subsequent use will be 
generated. 

Options to Annotate Assembler Text 

The compiler provides a link between the BSL source program and the 
generated assembler text by means of the BSL statement numbers. Each 
line of the assembler text contains, as a remark, the number of the BSL 
statement that caused the code to be generated. You may refer back to 
Figure 2 (Items F and L) for an example of this relationship. 

There are options you can use to add other types of annotation to 
the assembler text, and to change or suppress the existing annotation. 
These options are: 

NOSNUMBER 

suppresses the references to BSL statement numbers in the assem- 
bler text. 

SEQ=( 'character string', left col., right col.) 

indicates a character string to be placed in the assembler text 
beginning at the column number specified in left column and con- 
tinuing through the column number specified in right column. You 
may specify up to 19 alpha characters, blanks, and digits in the 
character string. Any part of the character string may be the 
starting sequence number. Left column may not be less than 62. 
The number of columns between left column and right column must 
equal the length of the character string. SEQ must be followed by 
an INCR option, on a separate card. An ICTL assembler statement 
is generated as a result of SEQ. The continuation column becomes 
the column before the SEQ character string begins. 

INCR=( ' increment value', left col., right col.) 

indicates the increment value for the assembly language sequence 
number in a SEQ character string. You may specify up to 19 
digits- The number of columns between left column and right 
column must equal the length of the number. The increment value 
will be added to the number in the SEQ character string starting 
at left coluimn. Therefore this portion of the SEQ character 
string must have been a number. 

The following example illustrates the SEQ and the INCR options. 

I $SEQ=('APAR01 0000', 70, 80) | 

I $INCR=('0010',77,80) | 

L — J 

The character string APAROl 0000 is less than 19 characters long. 
It will be generated in columns 70 through 80 of the assembler 
text. In this example the starting sequence number is 0000. It 
may appear anywhere in the string. When the INCR option is coded, 
right and left column indicators must reflect the position of the 
starting sequence number in the string. In this case it would be 
columns 77 tjtirough 80. The INCR option would add 0010 to the 
sequence number each time a line is printed, making each subse- 
quent line 0010,0020,0030, etc. 
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RESEQ=(* character string', left col., right col.) 

indicates the character string that replaces the character string 
originally specified in the SEQ option. You may specify up to 19 
alpha characters, blanks, and digits in character string. The 
left column must be equal to or greater than the SEQ left column. 
The right column must be equal to or less than the SEQ right 
column. If the RESEQ character string replaces the incremented 
field with alpha characters, these will be set to zeros before the 
increment is applied. 

The following example illustrates the RESEQ option. 

I $RESEQ=C23«,74,75) | 

L ._J 

This option would cause the data in columns 74 and 75 to be 
replaced by the number 23. If applied to the example for SEQ and 
I NCR the result would be APAR23 in columns 70 through 75 of the 
assembler text,. 

NOSEQ 

suppresses the generation of assembler text sequence numbers. 

INTER 

causes the listing of the BSL source program to be merged with the 
listing of the assembler text. Each BSL source statement is fol- 
lowed by the assembler text that it generated. This combined 
listing replaces both the BSL source statement listing and the 
assembler text listing that are usually produced, by the compiler. 
(An alternate method of obtaining an intermixed listing is 
explained under ANNOTATE. ) 

ANNOTATE=x 

allows you to add comments to the generated assembler text. The 
comments are derived from the BSL source program. The codes you 
can specify are: 

ANNOTATE=0 — the portion of the BSL input record between the 

established source margins is included as a comment 
in the generated assembler text. 

ANNCXrATE=l — the entire BSL input record is included as a comment 
in the generated assembler text. Source margins 
specified by the SORMGIN option are ignored. 

ANN0TATE=2 — only the comments from the BSL input records are 
included as comments in the generated assembler 
text. These comments are placed in the assembler 
text listing in the same position as they appeared 
in the BSL source program. (Actually, the comments 
are moved one column to the right to allow for the 
assembler text asterisk.) If the source comment 
appeared within a BSL source statement (preceding 
the semicolon) , it is placed before the assembler 
text generated for that statement. If the source 
comment appeared after a BSL source statement (fol- 
lowing the semicolon) , it is placed after the assem- 
bler text generated for that statement. 

Note ; The contents of columns 7a.- 80 of the BSL input records are 
never reproduced in the assembler text by the ANNOTATE option. 
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Using the Object Program Tracing Facility 

The compiler's TRACE option is designed to help you debug your BSL pro- 
gram. The TRACE option generates extra assembler code at pertinent 
points in your program so that entries and branches can be traced. The 
program trace is listed at execution time. An example of this output 
is illustrated in Appendix B. 

Trace Control Statements 

There are three compiler control statements associated with the tracing 
facility. The TRACE statement appears first and establishes use of the 
option. The TRACE ON and TRACE OFF statements indicate starting and 
stopping points for the trace operation. Specifically, the require- 
ments for the control statements are: 

TRACE [OFFSET=numlDer] 

indicates use of the option for the compilation. This statement 
must precede the BSL source program. For the OFFSET value 
(optional) , you specify a number up to 4095 which indicates a dis- 
placement (in bytes) from the save area address contained in 
register 13. The default offset value is 2. 

The TRACE option always assumes that register 13 contains the 
address of a save area. At this location, plus the offset, the 
tracing operation saves the statement niamber of each statement 
before it is executed. If you specify an offset greater than 71 
bytes, a larger save area is generated to meet the requirement. 
If the procedure option NOSAVEAREA is specified, tracing is still 
performed using the contents of register 13. (The main BSL proce- 
dure should not specify NOSAVEAREA if the TRACE option is to be 
used. The results are unpredictable.) 

The compiler options TRACE and NOSNUMBER are mutually exclusive. 
If both are specified, the compiler uses only the first one it 
encounters. . 

TRACE ON 

indicates a point at which program tracing is to start. TRACE ON 
statements can appear anywhere in the input records provided that 
the TRACE st<itement has been specified previously. 

TRACE OFF 

is used in conjunction with the TRACE ON statement, and indicates 
the point at which program tracing is to stop. TRACE OFF state- 
ments can appear anywhere within the BSL source program provided 
that the TRACE statement has been specified previously. 

TRACE Assembler Code 

The extra assembler code generated by the compiler sets up linkage to 
the object-time tracing routines, and defines the constants that are 
needed for tracing. The tracing code precedes the regular code 
generated for the corresponding statements. After testing and debug- 
ging is completed, you eliminate the extra code by recompiling your 
program without TRACE control statements. (You may need to provide 
additional addressability to handle the extra code generated for trac- 
ing purposes. This addressability may be removed when the TRACE option 
is removed.) 

When the TRACE option is in effect, the extra code generated for 
each point in the program is as follows: 
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Entry Points ; If TRACE ON is not specified, the tracing code generated 
at entry points is: 

r— 1 

I L 15>aBSLTRCI | 

I BALK 14,15 I 

I DC H* Offset value* | 

L . . J 

If TRACE ON is specified, the tracing code generated at entry points 
is: 

I 1 

L .15,aBSLTRCE 

BALR 14,15 

DC CL8' entry name' 

DC H* Statement number' 

DC H' Offset value' 

If CODEREG(O) is specified, you are responsible for generating the 
trace initialization code at the entry points. Follow the appropriate 
example shown above, depending on whether or not TRACE ON is in effect. 

Labeled Statements ; If TRACE ON is specified, the tracing code 
generated at labeled statements is: 

r 

i BAL 14,aBSLTRCB 

I DC H' statement number' 

L . 



Unlabeled Statements ; If TRACE ON is specified, the tracing code 
generated at unlabeled statements is: 

r 1 

I MVI of f set (13) , first part of statement number | 

I MVI of fset+1 (13) , second part of statement niamber | 

L . J 

If there is no change to the first part of the statement number, the 
first MVI instruction is omitted. 

CALL Statements ; If TRACE ON is specified, the tracing code generated 
at CALL statement is: 

r— • T 

|L aF, aBSLTRCC I 

I BALR aE,aF I 

JDC H' statement number' j 

I DC CL8' entry name' | 

RETURN Statements : If TRACE ON is specified, the tracing code 
generated at RETURN statement is: 

r 1 

BAL 14,aBSLTRCB 

DC H' Statement number' 

L 15,aBSLTRCR 

BALR 14,15 

DC CL8' return point' 
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If a return code must be passed when TRACE ON is specified, the return 
code must be placed in the register 15 field of the save area rather 
than in register 15. 

Data Area : Whether or not TRACE ON is specified, the tracing code 
generated in the program's data area is: 

r ■ 

a BSLTRCC DC V ( I KETRCC ) 

aBSLTRCR DC V(IKETRCR) 

aSSLTRCI DC V(IKETRCI) 

aBSLTRCE DC V(IKETRCE) 

aBSLTRCL DC V(IKETRCL) 

aBSLTRCB L 15, aBSLTRCL 

BCR 15,15 



TRACE Routines and Output 

The tracing routines are included in the BSL object-time library. 
These routines initialize and perform tracing operations when your pro- 
gram is executed. If you are executing under DOS, the tracing output 
is directed to the file with the symbolic unit name SYSLST. If you are 
executing under OS, the tracing output is directed to the data set with 
the ddname BSLOUT. 

The five tracing routines and their related output are: 

1. The IKETRCE routine initializes tracing and produces the following 
output : 

ENTERING entry name, SAVE AREA AT savearea address. 

2. When TRACE ON is not specified, the IKETRCI routine performs trac- 
ing initialization at entry to a BSL procedure. 

3. The IKETRCL routine produces the following output when the program 
executes a branch to a labeled statement: 

TO statement number FROM old statement number. 

^. The IKETRCC routine produces the following output when a CALL 
statement is encountered: 

CALLING entry name FROM STATEMENT statement number. 

5. The IKETRCR routine produces the following output when a RETURN TO 
statement is encountered: 

RETURNING TO return name FROM statement number. RETURN CODE 
IS register 15 value. 

and the following output when a RETURN statement is encountered: 

RETURNING TO -CALLER- FROM Statement number. RETURN CODE IS 
register 15 value. 

Your program can dynamically suppress the tracing output by setting 
a switch in the tracing routine. This switch is a variable named 
IKETRCOF which is declared in the tracing routine as FIXED (31) LOCAL 
EXTERNAL INIT(O). To use the switch, your program must declare the 
same variable as NONLOCAL EXTERNAL. 
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The IKETRCOF switch is initially set to 0, which allows normal trac- 
ing output. If your prograun sets the switch to 1, no tracing informa- 
tion is printed until the switch is reset to 0. For example, if you 
only want to trace the last time through a loop, yotir prograun might 
specify; 

r " ■— 

DCL IKETRCOF EXTERNAL; 



IKETRCOF = 1; 

DO I = 1 TO 100; 

IF I = 100 THEN IKETRCOF = 0; 



END; 

L J 
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Section 3: BSL Under the Disk Operating 
System (DOS) 



This section contains the information you need to compile, assemble, 
linkage edit, and execute your BSL programs under the IBM System/ 360 
Disk Operating System (DOS). 



Adding BSL to the System 

The BSL compiler runs as a problem program under DOS. It requires a 
machine configuration with 128K bytes of main storage. 

Figure 3 shows the BSL distribution package and how it is incorpo- 
rated into the system. For DOS users, the BSL distribution package is 
provided on a magnetic tape volume which is 9-track, 800 bpi, and unla- 
beled. The tape contains two files: 

File 1 — The BSL compiler in a form suitable for linkage editing. 

File 2 — The BSL library containing object-time program in object 
module form. 




U31 



r 



BSL Disfrlbution Package 



n 



System/360 Disk Operating System 



Magnetic Tape 
9-Track, 800 bpi 
Unlabeled 




Notes: 

• To put the BSL compiler into the core image library, use the CATAL linkage editor option. 

• To punch the BSL library, use the TPCD utility program. 

Figure 3. Adding BSL to the Disk Operating System 
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To linkage edit the BSL compiler and add it to the core image 
library, you may use the job control statements shown in the following 
example. The example assumes that the distribution tape is mounted on 
unit 28U. (The operator should type 'ignore' when intervention is 
required on unit 284.) The job control statements are: 



1 // 


JOB LNKBSL 


1 // 


ASSGN SYSIPT,X"284' 


1 // 


OPTION LINK,CATAL 


1 // 


UPSI 10000000 




PHASE BSL,* 




INCLUDE 




ENTRY BSLCTL 


1 // 


EXEC LNKEDT 


1 /& 





To have the programs of the BSL library available at execution time, 
you should punch them as object decks. An example of the job control 
statements for the punch operation is given below. The example assumes 
that the distribution tape is mounted on unit 284. Specify: 



r — • 

// JOB PNCHBSL 

// ASSGN SYS006,X*00D' 

// ASSGN SYS004,X*284' 

// MTC FSF,SYS004,01 

// UPSI 10100000 

// EXEC TPCD 

// UTC TR,FF,A=(80,1600) ,B=(80,80) ,IN,S1,01,R1 

// END 



Using the BSL Compiler 

The smallest self-contained unit o^ input to the compiler is a BSL 
external procedure. The output of the compiler is assembler text. The 
compiler output must subsequently be assembled before your program can 
be loaded and executed. 

The assembler text output of the compiler does not depend on any 
system macro instructions; therefore, it can be assembled, loaded, and 
executed under any System/360 programming system. However, if you 
include system macro instructions in the BSL program (by means of the 
GENERATE Statement or the REENTRANT attribute) , you must use the 
related system's assonbler to process the compiler's output. 

Files Required for Compilation 

The files used in the compilation process are illustrated in Figure 4, 
and described in Table 2, The Compiler's input/output processing is 
independent of the device type used, except for the scratch file 
(Sys003) and the intermediate files (SYSOOI and SYS002) . The scratch 
and intermediate files require magnetic tape devices. 
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SYS003 



Scratch File 
for Intermediate 
Work 
(Optional) 



SYSOOl 



Assembler Text 
for Subsequent 
Assembly 
(Optional) 



SYS002 



Output from 
Macro Phase for 
Subsequent 
Compilation 
(Optional) 



SYSIPT 




SYSLST 



SYS PC H 



Assembler 

Text 

(Optional) 



• Figure 4. Flowchart of DOS Files Used by the Compiler 



Table 2. Descripion of DOS Files Used By the Compiler 

r T 



Symbolic 
Unit 
Names 



Function 



Device Types 
Permitted 



Blocking 



SYSIPT 



Provides input to the compiler; i.e. 
control statements and source 
program. 



Card Reader 
Direct Access 
Tape 



Unblocked 



SYSLST 



SYS003 



h 



SYSOOl 



i 

SYS002 



Used to write out information 
listings of source program, assembler 
text, diagnostic messages, etc. 

Scratch file for intermediate work. 
Used only to save data created by 
GENERATE DATA statement. 



Printer | Unblocked 

Direct Access 

Tape 

Tape I Unblocked 
Direct Access 



Used to write out generated assembler 
text for subsequent assembly. If the 
NOASSEM option is specified, this 
file is not required. 



Tape 

Direct Access 



Unblocked 



SYSPCH 



The macro phase writes the modified 
source text on this file for subse- 
quent use in the compile phase. If 
the MACRO option is not specified, 
this file is not required. 



Tape 

Direct Access 



Unblocked 



The PUNCH option provides this output 
of the generated assembler text. If 
the PUNCH option is not specified, 
this file is not required. 



Card Punch 
Direct Access 
Tape 



Unblocked 
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Compila-bion Wi-bhout Assembly 

The compile-only operation allows you to compile a batch (one or more) 
of BSL external procedures without the production of an output file of 
assembler text. You should not specify the ASSEM option for compile- 
only operations. If you specify the PUNCH option, the compiler produces 
a punched deck containing the generated assembler text- This punched 
output may be subsequently used as input to an assembler. 

To compile your source programs, you execute the BSL compiler in a 
EKDS job step. An example of the job control statements needed to com- 
pile a single BSL external procedure is: 



r- 



// JOB BSL 

// ASSGN SYS003,X'282» (only if program uses GENERATE DATA) 

// ASSGN SYS 02, X' 28 4* (only for MACRO option) 

// EXEC BSL 

Compiler Control Statements (include the NOASSEM option) 



BSL External Procedure 



/* 

// RESET SYS003 (only if program uses GENERATE DATA) 
// RESET SYS002 (only for MACRO option) 

L J 

For batch compilation, you use the $$$ delimiter to separate the BSL 
external procedures in the compiler input. The last BSL external proce- 
dure is followed by the /* delimiter. An example of the job control 
statements needed to compile a batch of BSL external procedures is: 



r- 



// JOB BSL 

// ASSGN SYS003,X'282* (only if program uses GENERATE DATA) 

// ASSGN SYS002,X'28U" (only for MACRO option) 

// EXEC BSL 

Compiler Control Statements (include the NOASSEM option) 

First BSL External Procedure 



$$$ 

Compiler Control Statements (include the NOASSEM option) 

Next BSL External Procedure 



$$$ 

Compiler Control Statements (include the NOASSEM option) 

Last BSL External Procedure 



/♦ 

// RESET SYS003 (only if program uses GENERATE DATA) 

// RESET SYS002 (only for MACRO option) 

/g 
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Coropila-bion and Assembly 

If you are going to assemble the compiler's output with a DOS assembler, 
you can accomplish both compilation and subsequent assembly by executing 
two DOS job steps. This method permits compilation and assembly of one 
BSL external procedure. Batched compilation with subsequent assembly is 
not possible because the assembler cannot handle the multiple END state- 
ments generated by the compiler. 

An example of the job control statements needed to compile and 
assemble one BSL external procedure is: 



r- 



// JOB BSL 

// ASSGN SYS001,X»283' 

// ASSGN SYS002,X'28U* (only for MACRO option) 

// EXEC BSL 

Compiler Control Statements 



BSL External Procediire 



/* 

// RESET SYS 001 

// RESET SYS002 (only for MACRO option) 

// ASSGN SYSIPT,X'283' 

// EXEC ASSEMBLY 

// RESET SYSIPr 



You can compile and assemble several BSL external procedures by 
repeating the job steps shown above. 
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Compilation, Assembly, and Execution 

Since BSL is a language for the writing of systems programs, the compil- 
er makes no assumptions about the environment in which the resulting 
object program will be executed. The environment you select for program 
execution depends on the type of program that you write. You can run 
the program in a stand-alone mode or under some operating system. You 
can use any execution-time facilities that are available in the environ- 
ment, such as control program services or special machine instructions. 

If you are going to execute the program under DOS, the compilation, 
assembly, linkage edit,, and execution may each be a separate step of a 
single job. In this job, you can compile and assemble a number of BSL 
external procedures, and then linkage edit and execute them as one load 
module. Additional object decks can be included in the linkage edit 
step. An example of the job control statements needed for this type of 
job is: 






// JOB RUNBSL 

// OPTION LINK 

// ASSGN SYS003,X'281* 

// ASSGN SYS001,X'283' 

// ASSGN SYS002,X"28U' 

// EXEC BSL 

Compiler Control Statements 



(only if program uses GENERATE DATA. ) 
(only for MACRO option) 



First BSL External Procedure 



(only if program uses GENERATE DATA.) 



/* 

// RESET SYS003 

// RESET SYSOOl 

// RESET SYS002 (only for MACRO option) 

// ASSGN SYSIPT,X'283* 

// EXEC ASSEMBLY 

// RESET SYSIPT 

// ASSGN SYS003,X'281» (only if program uses 

GENERATE DATA.) 
// ASSGN SYSOOl, X' 283* 
// ASSGN SYS002,X'284' (only for MACRO 

option) 
// EXEC BSL 

Compiler Control Statements 

Next BSL External Procedure 



/* 

// RESET SYS003 (only if program uses 

GENERATE DATA. ) 
// RESET SYSOOl 

// RESET SYS002 (only for MACRO option) 
// ASSGN SYSIPT, X* 283 • 
// EXEC ASSEMBLY 
// RESET SYSIPT 
INCLUDE 

Object Decks 
/* 

ENTRY Name of procedure to be entered 
// EXEC LNKEDT 
// EXEC 

Program Input (if any) 
/£ 



Repeat these statements 
for each additional BSL 
, procedure, or delete to 
compile only one BSL 
procedure . 



Delete if object decks 
are not required. 
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BSL source programs written for execution under DOS should comply 
with the following special requirements: 

• If you specify the REENTRANT procedure option, and DATAREG is not 
zero, the compiler generates the OS GETMAIN macro instruction. If 
you want reentrant code for execution under DOS, you must specify 
DATAREG (0) and provide the storage and addressability for the 
AUTOMATIC data. 

• The BSL program that will receive control from DOS should use the 
DONTSAVE procedure option. 

• To return control to DOS, the EOJ macro instruction should be speci- 
fied in a GENERATE statement at the logical end of the BSL program. 

The following example illustrates all of the above requirements: 

I : ■ 1 

DOSMAIN : PROC OPTIONS (REENTRANT , DATAREG ( ) , DONTSAVE ) ; 

GEN (EOJ); 

END; 

J 



Using Control Program Services and Special Machine Instructions 

The GENERATE statement allows you to use any control program service or 
special machine instruction in your BSL program. In the case of control 
program services or other pre-defined macro instructions, you are 
responsible for ensuring that the required macro expansions are avail- 
able at assembly time. 

The BSL compiler never inspects the contents of a GENERATE statement. 
If you use the GENERATE statement, you must ensure that the contents are 
legal and properly related to the compiler-generated assembler text. 

Other considerations for using GENERATE are explained under "BSL Pro- 
gramming Techniques" in Section 7 of this manual. The form of the 
statement is described in the BSL Language Specification manual. 
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Using the BSL Library Routines 



When executing a BSL program under DOS, you may use the service routines 
provided in the BSL library. These routines perform certain basic func- 
tions that are useful for testing your programs. To call a library rou- 
tine, you must specify the entry name in a BSL CALL statement and then 
include the object deck in the linkage editing process. 

Complete descriptions and examples of the available routines can be 
found in the BSL Library publication. For your reference, a summary of 
the functions is listed in Table 3. (The BSL library also contains the 
TRACE routines which are described in Section 2.) 

The facilities provided by the library routines should not be 
regarded as part of the BSL language. The output of the BSL compiler is 
independent of any operating environment, but the library routines func- 
tion only under DOS. (Similar routines with identical entry names are 
provided in the compiler distribution package for OS.) 

Table 3. Functions of the BSL Library Routines (DOS) 



Routine 
Names 



Entry 
Points 



Functions 



EDIT 



GET 

GETS 

PUT 

PUTS 

TABSET 



Performs reading, writing, and conversion of data 
in a manner similar to PL/I EDIT DIRECTED I/O. 



I 

PDUMP 



I- 

SUBSTR 

BSL I/O 



PDUMP 



+ + 

SUBSTR 

+ + 

READ 
PRINT 
PUNCH 
CLOSE 



Performs snapshot dumps of specific data areas. 
The dumps are provided in hexadecimal, character, 
or bit string formats. 



Performs character substring assignment while 
checking substring ranges. 



Employs the DOS sequential access method to provide 
basic input/ output services at object time. These 
routines can read an 80-byte record from SYSRDR, 
write a 121-byte record on SYSLST, write an 80-byte 
record on SYSPCH, and close SYSLST. 



I 

Interrupt 
Handler 



IKETRCII 
IKETRCID 



Provides statement number and save area trace when 
a program check occurs. 



Including Text From a Library 

When you compile under DOS, you can use the compiler's INCLUDE features: 

• The INCLUDE macro statement (^INCLUDE) incorporates text during 
compile-time macro processing. 

• The INCLUDE option ($ INCLUDE) incorporates text after macro activity 
and does not submit the text to scanning for macro substitution. 

These features allow you to keep certain standard declarations or sec- 
tions of source code in external libraries. As needed, these items can 
be obtained from the libraries during compilation, and included in your 
programs . 
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storing Text in External Libraries 

The section of code that is to be kept for inclusion in source programs 
must be a book in a source statement library. The source statement 
library may be a private library if SYSSLB is assigned. 

You can use the source statement library maintenance and service pro- 
grams to add, delete, rename, condense or update the books. The follow- 
ing example adds a book to a private library. If SYSSLB is not defined, 
the book will be added to the system source statement library. Example: 

|// JOB jobname 

|// OPTION PARSTD 

|// ASSGN SYSSLB, X'cnn* 

|// DLBL IJSYSSL,'user identification of private 

|// library',, date, code 

j// EXTENT SYSSLB, extent information 

I // EXEC MAINT 

I CATALS subl ib . bookname [ , v . m [ , c ] ] 

I BKEND 

I (BSL source statements) 

I BKEND 

|/* 
j/g 



Specifying INCLUDE Option of Macro Statement 

The INCLUDE option or macro statement may appear at any point (and any 
number of times) in the compiler input. When INCLUDE is specified, the 
contents of the book in the source statement library is read as input to 
the compiler. This included text may not contain an INCLUDE. 

You specify INCLUDE in the following format: 

I ' 1 

|$INCLUDE sublibrary( bookname) | 

I or I 

|%INCLUDE sublibrary (bookname) | 

L J 

where : 

J $ INCLUDE \ 

\%INCLUDEj 

specifies the type of INCLUDE. The dollar sign ($) identifies the 
INCLUDE option, and must appear in the first column (leftmost 
source margin) . The word INCLUDE must immediately follow (no 
space) the dollar sign, and cannot be combined with other options 
in the same compiler control statement. 

The percent sign (%) identifies the INCLUDE macro statement, as 
described in the BSL Language Specification manual. 

sublibrary 

indentifies the sublibrary to which the book belongs- This can be 
an alpha character (0-9,A-Z,#, $, and a). 

(bookname) 

represents the name of the book in the sublibrary. The name is one 
to eight alphanumeric characters, the first of which must be alpha- 
betic. If the named book is not in the sublibrary, the compilation 
is terminated after printing a D13 diagnostic message. 
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The following example shows the use of the INCLUDE option. In the 
example, text is obtained from book DCLOl in sublibrary B of a private 
source statement library. Example: 

r " ~" 

// JOB BSLCOMP 

// OPTION PARSTD 

// ASSGN SYSSLB,X*191» 

// DLBL IJYSSLB, "library identification' , date, code 

// EXTENT SYS S LB , extent information 

// EXEC BSL 

$TIME 

PROGMl: PROC; 

DCL TABLE { 256) CHAR (10 ) ; 
$ INCLUDE B (DCLOl) 

CALL X; 
X : PROC ; 

DO 1=1 BY 1 TO 256; 

TABLE (I, 1 : U) =CODE (I ) ; 

END; 

END X; 

END PROGMl; 
/* 
/% 
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Section 4: BSL Under the Operating System (OS) 



This section contains the information you need to compile, assemble, 
linkage edit, and execute your BSL programs under the IBM System/360 
Operating System (OS) . 



Adding BSL to the System 

The BSL compiler runs as a problem program under OS. It requires 
100,000 bytes of main storage in addition to the storage required by the 
operating system, and the compiler's dictionary (see SIZE option) as 
well as the input and output buffers. 

Figure 5 shows how BSL is incorporated into the system. For OS 
users, the BSL distribution package is provided on a magnetic tape 
volume (9-track, 800 bpi) with standard labels. Three suggested job 
control procedures are provided later in the section. 

Creating a Private Library 

The volume serial number of the distribution tape is BSLBSL. The tape 
contains two partitioned data sets: 

BSLLDM 

is the BSL compiler in the form of a partitioned data set. The 
data set name is BSLLDM. The data set has only one member, and the 
member name is BSL. 

BSLLIB 

is the BSL library in the form of a partitioned data set. The data 
set name is BSLLIB. Its members are a number of object-time ser- 
vice programs - 

The examples of job control statements in this section of the manual 
are based on the assumption that you will create private libraries that 
contain the BSL compiler and BSL library. At compilation time, the 
private library that contains the BSL compiler is concatenated to the 
link library (SYSl.LINKLIB) by means of a JOBLIB DD statement. Option- 
ally, you can add the BSL compiler to the link library, and omit the 
JOBLIB DD statement at compilation time. 

You can use the lEHMOVE system utility program to move the parti- 
tioned data sets from the distribution tape to the private library 
volume (direct access). If these partitioned data sets already exist on 
your volume,, they must be scratched first. 
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To put the BSL compiler and BSL library 
into a private library, use the lEHMOVE 
utility program. 

To put the BSL compiler into the link library, 
first put it on a direct access volume, then 
use the lEBUPDTE utility program. 

To put the cataloged procedures into the 
procedure library, use the lEBUPDTE 
utility program. 



• Figure 5. Adding BSL to the Operating System 

An example of the job control statements needed to create the private 
libraries is shown below. The example assumes that the private 
libraries are placed on a 2311 disk with the volume serial number 
mill. Also, the data set BSLLDM (the BSL compiler) is renamed COMP 
because that is the name usually specified in the JOBLIB DD statement. 
The job control statements are: 
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PGM= lEHMOVE 

SYSOUT=A 

VOLDME=SER=BSLBSL,UNIT=2400,DISP=OLD 

DSNAmE=COMP,VOLUME=SER=111111,UNIT=2311, X 

SPACE=(TRK, (30,10,9) ),DISP=(NEW, KEEP) 

V0LUME=SER=111111,UNIT=2311 X 

SPACE= (TRK, (30,10)), DISP= ( NEW, DELETE ) 

* 

PDS=BSLLDM,TO=2311=llllll, X 

FROM=2400=(BSLBSL,1) ,RENAME=COMP 

PGM=IEHMOVE 

SySOUT=A 

VOLUME=SER=BSLBSL,UNIT=2400,DISP=OLD 

DSNAME=BSLILIB , V0LUME=SER=111111 , UNIT=2 311 , X 

SPACE=(CYL, (U,2,8)),DISP=(NEW,KEEP) 

VOLUME=SER=llllll,UNIT=2311, X 

SPACE=(TRK, (30,10)),DISP=(NEW,DELETE) 

* 

PDS=BSLLIB,TO=2311=111111,FROM=2400=(BSLBSL,2) 



|//A 


JOB 


|//B 


EXEC 


I//SYSPRINT 


DD 


1 //DDl 


DD 


I//DD2 


DD 


|// 




I//SYSUT1 


DD 


|// 




I//SYSIN 


DD 


1 
1 


COPY 


1 




|//BB 


EXEC 


1 //SYSPRINT 


DD 


1 //DDl 


DD 


1 //DD2 


DD 


|// 




I//SYSUT1 


DD 


|// 




|// SYS IN 


DD 


1 


COPY 


|/* 





Cataloging the Job Control Procedures 

A set of job control procedures is provided in this section. The set 
contains three procedures (BSLX, BSLASM, and BSLALG) which can be used 
as cataloged procedures for BSL operations under OS. 

If you intend to use cataloged procedures to run the BSL operations, 
you must add the suggested procedures (or your own procedures) to the 
procedure library (SYSl.PROCLIB). 

An example of the job control statements you need to catalog the pro- 
cedures is shown below. The example uses the lEBUPDTE utility program, 
and ass\Mnes that the procedure library is on a 2311 disk with the volume 
serial number 111111. The job control statements are: 



// 


JOB 


// 


exb:: 


//SYSPRINT 


DD 


//tiYSUTl 


DD 


// 




// 




//SYSUT2 


DD 


// 




// 




//SYSIN 


DD 


./ 


ADD 



PGM=IEBUPDTE , PARM=MOD 

SYSOUT=A 

DSNAME=SYS1 .PR0CLIB,V0LUME=SER=111111 , 

UNIT=2311 , DISP= (OLD, KEEP ) , 

DCB= (RECFM-F, LRECL=80 , BLKSIZE=80) 

DSNAME=SYS1.PR0CLIB,V0LUME=SER=111111, 

UNIT=2 311, DISP= (OLD, KEEP) , 

DCB= (RECFM=F,LRECL=80, BLKSIZE=80) 

DATA 

LIST=ALL, NAME=BSLALG, LEVEL=01, SOURCE=0 



Card Deck (containing BSLALG procedure) 



./ ADD LIST=ALL,NAME=BSLASM,LEVEL=01,SOURCE=0 

Card Deck (containing BSLASM procedure) 



./ ADD LIST=ALL,NAME=BSLX,LEVEL=01,SOURCE=0 

Card Deck (containing BSLX procedure) 

/* 
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Using the BSL Compiler 

The smallest self-contained unit of input to the compiler is a BSL 
external procedure. The output of the compiler is assembler text. The 
compiler output must subsequently be assembled before your program can 
be loaded and executed. 

The assembler text output of the compiler does not depend on any sys- 
tem macro instructions; therefore, it can be assembled, loaded, and 
executed under any IBM System/360 programming system. However, if you 
include system macro instructions in the BSL source program (by means of 
the GENERATE Statement or the REENTRANT attribute) , you must use the 
related system's assembler to process the compiler's output. 

Data Sets Required for Compilation 

The data sets used in the compilation process are illustrated in Figure 
6, and described in Table U. As shown in the table, the compiler's 
input/output processing is independent of the device type used. 

A column in Table 4 describes the DCB attributes for each of the com- 
piler's data sets, and shows which attributes are subject to change- 
The values shown for the changeable attributes are those that the com- 
piler assigns by default. To establish different values, you specify 
the desired attributes in the DCB parameter of the applicable DD state- 
ment. For example, if the SYSIN data set is on tape with blocked rec- 
ords, the DD statement could be specified as: 



j //SYSIN DD 



DSNAME=SOURCEl,UNIT=183,DISP=OLD,VOLUME=SER=Alllll, 
LABEL=(,NL) ,DCB= (RECFM=FB,BLKSIZE=640) 



SYSun 



SYSIN 



/ Scratch Data Set 
j for Intermediate 

Work 
\ (Optional) 



SYSUT2 



Assembler Text 
for Subsequent 
Assembly 
(Optional) 



SYSUT3 



Output from 
Macro Phase for 
Subsequent 
Compilation 
(Optional) 




SYSPUNCH 



Assembler 

Text 

(Optional) 



SYS OUT 



Figure 



Flowchart of OS Data Sets Used by the Compiler 
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Table 4. Description of OS Data Sets Used By the Compiler 

r T T 

Device Types 
Permitted 



I 

SYSOUT 



ddname 



SYSIN 



Function 



Provides input to the compiler; 
i.e., control statements and 
source program. 



DCB Specifica- 
tions Used By 
Compiler 

Card Reader^ 
Direct Access 
Tape 



RECFM=F2 
LRECL=80 
BLKSIZE=802 
BUFiSI0=32 



I 

SYSUTl 



Used to write out information 
listings of source program, 
assembler text, diagnostic 
messages, etc. 



Printer^ 
Direct Access 
Tape 



RECFM=FA2 
LRECL=121 
BLKSIZE=1212 
BUFN0=32 



Scratch data set for intermedi- 
ate work. Used only to save 
data created by GENERATE 
DATA statement. 



Direct Access: 
Tape 



RECFM=FB2 
LRECL=80 
BLKSIZE=35202 
BUFN0=22 



4 



SYSUT2 



Used to write out generated 
assembler text for subsequent 
assembly. If the NOASSEM 
option is specified, this data 
set is not required. 



Direct Access^ 
Tape 



RECFM=FB2 
LRECL=80 
BLKSIZE=8002 
BUFN0=22 



SYSUT3 



I 

SYS PUNCH 



The macro phase writes the 
modified source text in this 
data set, for subsequent 
use in the compile phase. If 
the MACRO option is not speci- 
fied, this data set is not 
required. 



Direct Access- 
Tape 



RECFM=FB2 
LRECL=80 
BLKSIZE=35202 
BUFN0=2 



I" 



The PUNCH option provides this 
output of the generated assem- 
bler text. If the PUNCH 
option is not specified, this 
data set is not required. 



Card Punch^ 
Direct Access 
Tape 



RECFM=F2 
LRECL=80 
BLKSIZE=8 02 
BUFN0=22 



^These are the device types specified in the cataloged procedures. 
^You can specify other values for these DCB parameters. 



BSL Cataloged Procedures 

Three cataloged procedures are provided for BSL operations under OS. 
You can: 

• Use the cataloged procedures suggested in this section. 

• Write and use your own cataloged procedures. 

• Execute BSL without cataloged procedures, by providing the full set 
of job control statements at compilation time. 

If you create your own procedures, you can use the suggested procedures 
as examples of format and statement requirements. Your procedures must 
conform to the data set requirements described previously. 
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I Three suggested cataloged procedures are listed in Figures 7, 8, and 
9. The procedure names and functions are: 



BSLX 



contains the job control statements for the compile-only operation. 



BSLASM 

contains the job control statements for compilation and assembly. 

BSLALG 

contains the job control statements for compilation, assembly, 
linkage editing, and execution. 



j //STEPl 
j/ZSYSOUT 
I I //SYSUTl 

I //SYSUT2 

|// 

I //SYSUT3 

|// 

I //SYS PUNCH 

L . 



EXEC PGM=BSL 

DD SYSOUT=A 

DD DSNAME=&UT1, UNIT=SYSDA, DISP= (NEW, DELETE ) , 

SPACE=CCYL, (2,1)) 
DD DSNAME=SBSLGO,UNIT=SYSDA,DISP=(NEW, DELETE) , 

SPACE=(CYL, (3,1)) 
DD DSNAME=SUT3 , UNIT=SYSDA, DISP= (NEW, DELETE ) , 

SPACE=(CYL, (3,1)) 
DD UNIT=SYSCP 



• Figure 7. Cataloged Procedure BSLX 



1 //STEPl 


EXEC 


|// SYS OUT 


DD 


1 //SYSUTl 


DD 


|// 




1 //SYSUT2 


DD 


|// 




I//SYSUT3 


DD 


|// 




I//SYSPUNCH 
1 


DD 


1 

1 //STEP2 


EXEC 


|// SYS GO 


DD 


|// 




I//SYSPUNCH 


DD 


1 //SYS PRINT 


DD 


1 //SYSUTl 


DD 


|// 




I//SYSUT2 


DD 


|// 




I//SYSUT3 


DD 


|// 




|// SYS IN 


DD 


|// 








Figure 8. ( 


:atalo 



PGM=BSL 

SYSOUT=A 

DSNAME=gUTl,UNIT=SYSDA,DISP= (NEW, DELETE) , 

SPACE=(CYL, (2,1)) 

DSNAME=SBSLGO,UNIT=SYSDA,DISP= (NEW, PASS) , 

SPACE=(CYL, (3,1)) 

DSNA^5E=gUT3,UNIT=SYSDA,DISP= (NEW, DELETE) , 

SPACE=(CYL, (3,1)) 

UNIT=SYSCP 



PGM= ASMBLR , COND= ( 9 , LT , STEPl ) , PARM=LOAD 

DSNAME=gLOADSET,UNIT=SYSDA,DISP= (MOD, PASS) , 

SPACE=(80, (200,50)) 

UNIT=SYSCP 

SYSOUT=A 

DSNAME=&UT1,UNIT=SYSDA,DISP= (NEW, DELETE) , 

SPACE=(CYL, (3,1)) 

DSNAME=gUT2,UNIT=SYSDA,DISP= (NEW, DELETE) , 

SPACE=(CYL, (3,1)) 

DSNAME=gUT3,UNIT=SYSDA,DISP= (NEW, DELETE) , 

SPACE=(CYL, (3,1)) 

DSNAME=* .STEPl. SYSUT2 ,UNIT=SYSDA, 

DISP= (OLD, DELETE) 



Cataloged Procedure BSLASM 
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//STEPl 


EXEC 


//SYSOUT 


DD 


//SYSUTl 


DD 


// 




//SYSUT2 


DD 


// 




//SYSUT3 


DD 


// 




//SYS PUNCH 


DD 


//STEP 2 


EXEC 


//SYS GO 


DD 


// 




//SYS PUNCH 


DD 


//SYSPRINT 


DD 


//SYSUTl 


DD 


// 




//SYSUT2 


DD 


// 




//SYSUT3 


DD 


// 




//SYS IN 


DD 


// 




//LKED 


EXEC 


// 




^//SYSLIB 


DD 


// 




//SYS LIN 


DD 


// 


DD 


//SYSUTl 


DD 


// 




//SYSLMOD 


DD 


// 




//SYSABEND 


DD 


//SYSPRINT 


DD 


//GO 


EXEC 


//SYSABEND 


DD 


//BSLOUT 


DD 


//BSLPUNCH 


DD 



PGM=BSL 

SYSOUT=A 

DSNAME=fiUTl , UNIT=SYSDA, DISP= (NEW, DELETE ) , 

SPACE=(CYL, (2,1)) 

DSNAME= S BSLGO , UNIT-SYSDA , DISP= ( NEW , PASS ) , 

SPACE=(CYL, (3,1)) 

DSNAME=€UT3 , UNIT=SYSDA, DISP= (NEW, DELETE ) , 

SPACE=(CYL, (3,1)) 

UNIT=SYSCP 



PGM=ASMBLR , COND= ( 9 , LT , STEPl ) , PARM=LOAD 

DSNAME=gLOADSET, UNIT=SYSDA, DISP= (MOD, PASS) , 

SPACE=(80, (200,50)) 

UNIT=SYSCP 

SYSOUT=A 

DSNAME= fiUTl , UNIT=SYSDA, DISP= (NEW, DELETE ) , 

SPACE=(CYL, (3,1)) 

DSnAmE= 6UT2 , UNIT=SYSDA, DISP= (NEW, DELETE ) , 

SPACE=(CYL, (3,1)) 

DSNAME= 6UT3 , UNIT=SYSDA, DISP= (NEW, DELETE ) , 

SPACE=(CYL, (3,1)) 

DSNAME=*. STEPl. SYSUT2, UNIT=SYSDA, 

DI SP= ( OLD , DELETE ) 



PGM=LINKEDIT, COND= ( 4, LT, STEP2) , 

PARM= • XREF , LI ST , LET * 

DSNAME=BSLLIB , UNITES YSDA , DI SP= ( OLD , KEEP ) , 

V0LUME=SER=111111 

DSNAME=gLOADSET,DISP= (OLD, DELETE) 

DDNAME=SYSIN 

DSNAME=gUTl, UNIT=SYSDA, DISP= (NEW, DELETE ) , 

SPACE=(CYL, (2,1)) 

DSNAME=SGOSET (BSLGO) , UNIT=SYSDA, 

DISP=( MOD, PASS) ,SPACE=(1024, (50,20,1)) 

SYSOUT=A 

SYSOUT=A 



PGM=*. LKED. SYSLMOD, COND= ( 4, LT, LKED) 

SYSOUT=A 

SYSOUT=A 

UNIT=SYSCP 



^Used by the operating system to locate the private library that 
contains the BSL library. If the library is resident in the system 
link library (SYSl.LINKLIB) ,- the SYSLIB statement should be 
omitted. 

• Figure 9. Cataloged Procedure BSLALG 



Compilation Without Assembly 

The compile-only operation allows you to compile a batch (one or more) 
of BSL external procedures without the production of an output data set 
of assembler text. You should specify the NOASSEM option for compile- 
only operations. If you specify the PUNCH option, the compiler produces 
a punched deck containing the generated assembler text. This punched 
output may subsequently be used as input to an assembler. 
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The BSLX cataloged procedure executes the BSL compiler as a single OS 
job step. This job step performs the compile-only operation. Figure 10 
describes the input stream that you must provide for the BSLX cataloged 
procedure. 

r 1 

^//AA JOB J0HND0E,MSGLEVEL=1 

2//J0BLIB DD DSNAME=COMP, UNIT=2 311, DISP= (OLD, PASS ) , 

// VOLUiyiE=SER=lllHl 

3//STEPA EXEC BSLX 
**//STEPl.SYSIN DD * 
s Compiler Control Statements 

First BSL External Procedure 

«$$$ 

5 Compiler Control Statements 

Next BSL External Procedure 

«$$$ 

5 Compiler Control Statements 

Last BSL External Procedure 

6/* 

j. „_^ 

^The JOB statement is required. The jobname and the parameters in the 
operand field are optional . 

^Used by the operating system to locate the private library that con- 
tains the BSL compiler. If the compiler is resident in the system 
link library (SYSl.LINKLIB) , the JOBLIB statement should be omitted. 

^Identifies the BSLX cataloged procedure. If you want to add the 
SORMGIN, SIZE, or CONCHAR options, specify PARM.STEP1= •options' in 
the operand field of this statement. 

^♦Describes the data set containing the compiler input. 

^Should include the NOASSEM option. 

^'The $$$ delimiter is used only between BSL external procedures. The 
last (or only) BSL external procedure is followed by the /* 
delimiter. 

• Figure 10. Sample Use of BSLX 

Compilation and Assembly 

If you are going to assemble the compiler's output with an OS assembler, 
you can accomplish both compilation and subsequent assembly by executing 
two OS job steps. This method permits compilation and assembly of one 
external procedure. Batched compilation with subsequent assembly is not 
possible because the assembler cannot handle the multiple END statements 
generated by the compiler. 

The BSLASM cataloged procedure executes the job steps required for 
compilation and subsequent assembly (Assembler F) . Figure 11 describes 
the input stream that you must provide for the BSLASM cataloged 
procedure. 
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r ■ " — ■ 

^//BB JOB JOHNDOE , MSGLEVEL=1 

2//J0BLIB DD DSNAME=COMP,UNIT=2311,DISP=(OLD,PASS) , 

// VOLUiyiE=SER=llllll 

3//STEPA EXEC BSLASM 

*»//STEPl.SYSIN DD * 

Compiler Control Statements 

BSL External Procedure 

5/* 

6//STEP2.SYSLIB DD DSNAME=SySl.MACLIB, DISP=(OLD,KEEP) 
■7// DD DSNAME=MYLIB,DISP=( OLD, KEEP) 
|. ^ 

^The JOB statement is required. The jobname and the parameters in the 
operand field are optional . 



^used by the operating system to locate the private library that con- 
tains the BSL compiler. If the compiler is resident in the system 
link library (SYSl.LINKLIB) , the JOBLIB statement should be omitted. 

3 Identifies the BSLASM cataloged procedure. If you want to add the 
SORMGIN, SIZE, or CONCHAR options, specify PARM.STEP1=* Options' in 
the operand field of this statement. 

*♦ Describes the data set containing the compiler input. 

^Separates the compiler input data set. 

^Required only if OS macro instructions are used in the BSL program, 
or generated for the REENTRANT attribute. This statement describes 
the data set containing the OS macro definitions. 

■'Required only if user-defined macro instructions are used in the BSL 
program. This statement describes the data set containing your macro 
definitions. 

• Figure 11. Sample Use of BSLASM 



Compilation, Asseinbly, and Execution 

Since BSL is a language for the writing of systems programs, the compil- 
er makes no assumptions about the environment in which the resulting 
object program will be executed. The environment you select for program 
execution depends on the type of program that you write. You can run 
the program in a stand-alone mode or under some operating system. You 
can use any execution-time facilities that are available in the environ- 
ment, such as control program services or special machine instructions. 

Note : If you specify the REENTRANT procedure option, and DATAREG is not 
zero, the compiler generates the OS GETMAIN macro instruction. If you 
want reentrant code, but do not intend to execute the program under OS, 
You must specify DATAREG(O) and provide the storage and addressability 
for the AUTOMATIC data. 

If you are going to execute the program under OS, compilation, 
assembly, linkage edit, and execution may each be separate steps of a 
single job. 

The BSLALG cataloged procedure executes the job steps req\aired to 
compile, assemble, linkage edit, and execute a single BSL external pro- 
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cedure. Additional object modules can be included in the linkage edit 
step. Figure 12 describes the input stream that you must provide for 
the BSLALG cataloged procedure. 



r ~ 

^//CC JOB J0HND0E,MSGLEVEL=1 

2//J0BLIB DD DSNAME=COMP,UNIT=2311 ,DISP= (OLD, PASS ) , 

// V0LUME=SER=111111 

3//STEPA EXEC BSLALG 
'♦//STEPl.SYSIN DD * 

Compiler Control Statements 

BSL External Procedure 

5/* 

6//STEP2.SYSLIB DD DSNAME=SYSl.MACLIB,DISP= (OLD, KEEP) 

■7// DD DSNAME=MYLIB,DISP= (OLD, KEEP) 

8//LKED.SYSIN DD * 
Object Decks 

9/* 

^o//GO.ddname DD (parameters) 
^__ 4 

^The JOB statement is required. The jobname and the parameters in the 
operand field are optional. 

^used by the operating system to locate the private library that con- 
tains the BSL compiler. If the compiler is resident in the system 
link library (SYSl.LINKLIB) , the JOBLIB statement should be omitted, 

^Identifies the BSLALG cataloged procedure. If you want to add the 
SORMGIN, SIZE, or CONCHAR options, specify PARM. STEP1=* options • in 
the operand field of this statement. 

'♦Describes the data set containing the compiler input. 

® Separates the compiler input data set. 

^Required only if OS macro instructions are used in the BSL program, 
or generated for the REENTRANT attribute. This statement describes 
the data set containing the OS macro definitions. 

■^Required only if user-defined macro instructions are used in the BSL 
program- This statement describes the data set containing your macro 
definitions. 

^Required only if additional object modules are to be included in the 
linkage editing step. This statement describes the data set contain- 
ing the object modules. 

^Indicates the end of the object module data set. 

^ORequired only to define additional data sets that may be needed for 
the execution of the BSL program. 

L . 

» Figure 12. Sample Use of BSLALG 



48 



IBM Confidential 



The cataloged procedures can also be used to compile, assemble, link- 
age edit, and execute several BSL external procedures in a single job. 
To accomplish this, you use and repeat the BSLASM cataloged procedure to 
j compile and assemble each BSL external procedure except the last. 

For the final BSL external procedure to be compiled and assembled, 
you use the BSLALG cataloged procedure in the normal manner. This 
sequence of steps causes all the assembler output to be placed in the 
SLOADSET data set, from where it is linkage edited and executed as a 
single load module. 



Dynamic Invocation of the Compiler 

In addition to being executed as a job step, the BSL compiler can be 
invoked during the execution of a problem program- Your program can 
pass control to the compiler through the use of the CALL, LINK, ATTACH, 
or XCTL macro instructions; or you can set up your own calling sequence 
using branching instructions. The compiler receives and returns control 
according to standard linkage conventions. 

When the compiler receives control, it assumes that register 1 con- 
tains the address of a parameter list which is made up of contiguous 
fullword addresses on fullword boiondaries. These address parameters are 
positional: 

1. The first address parameter points to a list of compiler options. 
This address must always be provided. If there are no options to 
be specified, this address must point to a halfword of binary 
zeros. 

2. The second address parameter points to a list of alternate ddnames. 
If this address is omitted, the high-order bit of the first address 
must be set to 1. 

An example of dynamic invocation is provided in Appendix D. 

Form of Invocation 

If you use the CALL, LINK, or ATTACH macro instructions to invoke the 
compiler, the macro expansion builds the parameter list and loads the 
pointer into register 1. If you use XCTL or your own calling sequence, 
your program must build the parameter list and load the pointer into 
register 1. The various methods of invoking the compiler are shown 
below: 



r T 1 

I Operation | Operands | 

|. ^ ^ 

I LINK I EP=BSL,PARAM=(optionlist[,ddnamelist]) ,VL=1 j 

I ATTACH I I 

(. 4 „ ^ 

I CALL I BSL, toptionlist[,ddnamelist]) ,VL | 

, 4 ^ 

I XCTL I EP=BSL I 

^ 4 ^ 

I LA I 1, pari is t I 

JL i 15,bsladdr | 

JBALR I 14,15 j 

L J J 
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optionlist 

specifies the address of a variable length list containing the 
options usually specified in the FARM field of the EXEC statement. 
If there are no options to be specified, this address inust point to 
a half word of binary zeros. 

ddnamelist 

specifies the address of a variable length list containing alter- 
nate ddnames for the data sets used by the compiler. If alternate 
ddnames are not required, this operand may be omitted. 

parlist 

specifies the address of a parameter list which is built by your 
program. If your parameter list contains only one address (option- 
list) , its high-order bit m.ust be set to 1. If the high-order bit 
of the first address is not set to 1 , the parameter list must con- 
tain a second address (ddnaine list). 

bsladdr 

specifies the entry point of the load module containing the BSL 
compiler. You should use a V-type address constant for BSL, or 
issue a LOAD macro instruction for BSL and use the address that is 
returned in register 0. 

Option List 

The first address parameter in the parameter list points to a variable 
length list of compiler options. This option list must be provided in 
the form: 

I T " 1 

Icounter joptionl ,option2,option3 | 

L J. ■ J 

where counter is a halfword on a halfword boundary. This halfword coun- 
ter contains the binary value of the number of characters in the string 
of options. The maximum value is 35. If the counter is set to binary 
zeros, no options are specified. 

The string of options contains the same compiler options that may be 
specified in the FARM field of the EXEC statement. These three options 
(SIZE, SORMGIN, and CONCHAR) can be specified in any order, and any or 
all may be omitted. 

List of Alternate DP Names 

The second address in the parameter list points to a variable length 
list containing alternate ddnames for the data sets used by the BSL com- 
piler. This ddname list must be provided in the form: 

j counter [string of ddnames | 

L J. J 

where counter is a halfword on a halfword boundary. The halfword coun- 
ter contains the binary value of the number of characters in the string 
of ddnames. The maximum value is 88. If the counter value is less than 
or equal to 32, no alternate ddnames are specified. 

The ddnames in the list must be specified in the same positions as 
the standard order of I/O ddnames. Each ddname must be an 8-byte ele- 
ment of the string. If the last ddname is less than eight characters, 
the low-order bytes will be padded with blanks. If a ddname is omitted 
within the list, the 8-byte entry must contain binary zeros. If neces- 
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sary, ddnames can be omitted from the end of the list by adjusting the 
counter value. 

Table 5 shows the standard list of ddnames, the seven ddnames used by 
the BSL compiler, the positions for specifying the seven alternate 
ddnames, and the required counter values. Whenever you do not specify 
an alternate ddname, the compiler ddname is used. The compiler ddnames 
are restored after every invocation. 



• Table 



Alternate DD Names 



r 

I Dec. 
j Displ 

h 

I +0 
j. 

I +8 

h 

I +16 
I- 

I +24 
I 

I +32 

I- 

I +40 
|. 

I +48 

F 

I +56 
I 

j +64 
j. 

I +72 

I- 

I +80 

L 



T 1 

I CouLnter 
Alternate DD Names j (binary) 



Standard DD Names 



Compiler DD Names 



SYSLINbb 
member 



not used 
not used 



SYSLMODB 
SYSLIBbe 



not used 
not used 



SYSINbbb 
SYSPRINT 



SYSINbbE) 
SYSOUTfeb 



ddnamel 
ddname 2 



40 
48 
56 



SYSPUNCH 
SYSUTl bb 
SYSUT2 bb 



SYSPUNCH 
SYSUTl bb 
SYSUT 2 bb 



-I-. 

I 



ddname 3 
ddname4 
ddname 5 



H 

64 
72 



SYSUT3 bb 
SYSTERMb 



SYSUT3bb 
SYSTERMb 



ddname6 
ddname7 



80 
88 



Using Control Program Services and Special Machine 
Instructions 

The GENERATE statement allows you to use any control program service or 
special machine instruction in your BSL program. In the case of control 
program services or other pre-defined macro instructions, you are 
responsible for ensuring that the required macro expansions are avail- 
able at assembly time. 

The BSL compiler never inspects the contents of a GENERATE statement. 
If you use the GENERATE Statement, you must ensure that the contents are 
legal and properly related to the compiler-generated assembler text. 

Other considerations for using the GENERATE statement are explained 
I under "BSL Programming Techniques" in Section 7 of this manual. 

Detailed examples are listed in Appendix A. The form of the GENERATE 
statement is described in the BSL Language Specification manual. 



Using the BSL Library Routines 

When executing a BSL program under OS, you may use the service routines 
provided in the BSL library. These routines perform certain basic func- 
tions that are useful for testing your programs. To call a library rou- 
tine, you specify the entry name in a BSL CALL statement, and identify 
the BSLLIB data set in the linkage-editing operation: 
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• The BSLALG cataloged procedure provides for use of the BSL library. 
In the linkage- editing job step, the SYSLIB DD statement describes 
the BSLLIB data set. No additional DD statements are required. 

• If you do not use the cataloged procedure, your linkage-editing job 
step must include a SYSLIB DD statement that describes the BSLLIB 
data set, and you may not specify the linkage- editor option NCAL. 

Complete descriptions and examples of the available routines can be 
found in the BSL Library publication. For your reference, a summary of 
the functions is listed in Table 6. (The BSL library also contains the 
TRACE routines which are described in Section 2. ) 

The facilities provided by the library routines should not be 
regarded as part of the BSL language. The output of the BSL compiler is 
independent of any operating environment, but the library routines func- 
tion only under OS. (Except for ERRINT, similar library routines with 
identical entry names are provided in the compiler distribution package 
for DOS.) 



Table 6. Functions of the BSL Library Routines (OS) 






Routine 
Names 



EDIT 



Entry 
Points 



GET 

GETS 

PUT 

PUTS 

TABSET 



Functions 



Performs reading, writing, and conversion of data 
in a manner similar to PL/I EDIT DIRECTED I/O. 



ERRINT 



ERRINT 
ERRCL 



Gives the user a facility like PL/I ON-UNITS for 
handling program interruptions. 



PDUMP I PDUMP 



I— - 

SUBSTR 

BSL I/O 



+ + 



Performs snapshot dumps of specific data areas. 
The dumps are provided in hexadecimal, character, 
or bit string formats . 



SUBSTR 



Performs character substring assignment while 
checking substring ranges. 






READ 
PRINT 
PUNCH 
CLOSE 



f-- 



Employs the queued sequential access method (QSAM) 
to provide basic input/output services at object 
time. These routines can read a logical record, 
write a logical record, punch a logical record, and 
close the system output data set. 



Interrupt 
Handler 



IKETRCII 
IKETRCID 



Provides statement number and save area trace when 
a program check occurs. 



Including Text From a Library 

when you compile under OS, you can use the compiler's INCLUDE features: 

• The INCLUDE macro statement (^INCLUDE) incorporates text during 
compile- time macro processing. 

• The INCLUDE option ($ INCLUDE) incorporates text after macro activity 
and does not submit the text to scanning for macro substitution. 
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These features allow you to keep certain standard declarations or 
sections of source code in external libraries. As needed, these items 
can be obtained from the libraries during compilation, and included in 
your programs. 

Storing Text in External Libraries 

The section of code that is to be kept for inclusion in source programs 
must be a member of a partitioned data set. The data set requirements 
are: 

• The partitioned data set must contain fixed format records; the DCB 
parameter RECFM must not specify U (undefined) or V (variable). 

• The partitioned data set must contain 80- byte logical records; the 
DCB parameter LRECL must specify 80. 

• The partitioned data set may contain blocked records up to a block 
size of 3520 bytes. The compiler obtains storage for two input 
blocks, and this storage must be taken into account when determining 
the total storage size required for BSL compilation (see SIZE 
option) . 

If you attempt to include text from a data set that does not conform to 
the above requirements, the compiler issues an error message and compi- 
lation is terminated. 

You can use the lEBUPDTE utility program to create or add- to your 
library of text. The following example shows how to do it. In the 
example, the SYSUT2 DD statement describes the partitioned data set that 
will contain the text, and the sections of text to be added as members 
are named MEMBRl and MEMBR2. The example is: 



PGM= lEBUPDTE , PARM=NEW 

SYSOUT=A 

DSNAME=TEXTLIB , UNIT= 2 311 , DI SP= ( NEW , KEEP ) , 

V0LUME=SER=111111 , SPACE= (80,(25,25,1)) 

♦ 

NAME=MEMBR1 , LEVEL=00 , SOURCE=0 , LIST=ALL 
Card Deck (containing section of text to be kept in the library) 



. / ADD NAME=MEMBR2 , LEVEL=00 , SOURCE=0, LIST=ALL 

Card Deck (containing section of text to be kept in the library) 



//JOBl 


JOB 


//STEPl 


EXE< 


//SYSPRINT 


DD 


//SYSUT2 


DD 


// 




//SYSIN 


DD 


./ 


ADD 



./ 
/* 



ENDUP 



Specifying INCLUDE Option or Macro Statement 

The INCLUDE option or macro statement may appear at any point (and any 
number of times) in the compiler input. When INCLUDE is employed, the 
contents of the named member of the partitioned data set is used as 
input to the compiler. This included text may not contain an INCLUDE. 
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You specify INCLUDE in the following format 



$INCLUDE ddname (member name) 

or 
^INCLUDE ddname (m«nber name); 

L . 



J 



where : 

($INCLUDE) 

\%INCLUDE j 

specifies the type of INCLUDE. The dollar sign ($) identifies the 
INCLUDE option, and must appear in the first column (leftmost 
source margin) . The dollar sign is the default control character 
— a different character can be specified by means of the CONCHAR 
compiler option. The word INCLUDE must immediately follow (no 
space) the dollar sign, and cannot be combined with other options 
in the same compiler control statement. 

The percent sign (%) identifies the INCLUDE macro statement, as 
described in the BSL Language Specification manual. 

ddname 

identifies the DD statement that describes the partitioned data set 
from which the text is to be obtained. The appropriate DD state- 
ment must be included in the job control statements for the 
compilation . 

(member name) 

identifies the member of the partitioned data set. The contents of 
this member are included in the compiler input at the point where 
INCLUDE is specified. If the named member does not exist in the 
defined data set, compilation is terminated. 

The following example shows the use of the INCLUDE option. In the 
example, text is obtained from the MEMBRl and MEMBR2 members of the par- 
titioned data set named TEXTLIB. The TEXTLIB data set is described by 
the LIBl DD statement. The LIBl DD statement, as well as the member 
names, are identified in the INCLUDE option. The example is: 



— 1 
X 



//JOB 2 JOB 

//JOBLIB DD 
// 

//STEPA EXEC 
//STEPl.LIBl DD 
// 

//STEPl.SYSIN DD 
$ASSEM,TIME 
Rl! PROC; 

DCL M PTROl), 
CALL X; 
CALL Q; 
$INCLUDE LIBKMEMBRl) 

Q: PROC; 
$INCLUDE LIB1(MEMBR2) 
J= J+1 ; 
END; 
END; 
/* 



DSNAME=COMP,UNIT=2311,DISP= (OLD, PASS), 

V0LUME=SER=111111 

BSLASM 

DSNAME=TEXTLIB , UNIT=2 311 , DISP=OLD , 

V0LUME=SER=111111 



(Q,X) ENTRY INTERNAL; 
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Using the TESTRAN Facilities 

If you test your BSL program under OS, you can take advantage of the 
debugging facility called TESTRAN. TESTRAN is a feature of OS; it is 
not part of the BSL compiler. 

TESTRAN assists in debugging BSL programs in the same manner as with 
assembler language programs. The scope of this manual does not include 
a detailed description of TESTRAN processing (see the TESTRAN publica- 
tion. Form C28-6648); however, items of special significance to BSL pro- 
grammers are explained in the following paragraphs. In addition, 
examples illustrating the use of TESTRAN with BSL are provided in Appen- 
dix C. 

BSL Requirements for the TESTRAN Control Section 

You should place all TESTRAN macro instructions to be used in a separate 
control section. This TESTRAN control section should execute the TEST 
OPEN macro instruction, and call the BSL program. The entry name of the 
BSL external procedure that is to be the primary entry point of your 
program must be identified by an EXTRN instruction in the TESTRAN con- 
trol section. 

For the DUMP DATA statement of TESTRAN, you may refer to the BSL data 
in two ways: 

1. If the data is STATIC in BSL, refer to it by name. 

2. If the data is AUTOMATIC in BSL, you should use a DSECT instruction 
in the TESTRAN control section, and point the appropriate register 
at the item in the BSL program - 

Job Control Statements for TESTRAN 

When you run your BSL program with TESTRAN, certain items must be added 
to the job control statements. You must: 

• Specify the entry name of the TESTRAN control section. This name 
must be specified by the linkage editor ENTRY statement in the link- 
age editing step. 

• Specify the linkage editor TEST option in the linkage editing step. 

• Define a SYSTEST data set for the execution step. 

• Execute an additional step after execution to perform the TESTRAN 
EDIT. 

If you specify the TEST parameter for the assembly job step, names in 
BSL programs can be referred to without special attributes. The TEST 
parameter causes the assembler to produce symbol tables in the object 
module. The following example shows how to specify the TEST parameter 
when you use the BSLALG cataloged procedure: 



r ' 1 

J//STEPA EXEC Bi5LALG,PARM.STEP2='TEST' | 

L J 
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Using the CLEAR Facilities 

If you develop or maintain your BSL program under OS, you can use the 
control facility called CLEAR. CLEAR is a separate facility; it is not 
part of the BSL compiler. To use CLEAR with BSL, your system must have 
CLEAR Version 4.0 or a later version. 

CLEAR allows you to use the verbs ALTER, EDIT, INTEG, MODIFY, and 
SCREATE, by specifying the keyword parameter CMPLR=BSL. If your CLEAR 
system has been modified with PTF (referencing APAR) number CL4017, you 
can also specify a number of optional keyword parameters which invoke 
the appropriate compiler options described in section 2 of this manual. 
The optional keyword parameters are: 

BCOL=beginning card column 

specifies the card column in which the BSL source statements begin. 
The compiler uses this value as the leftmost source margin. You 
must specify a three-digit number, using leading zeros as neces- 

j sary. The default is BCOL=003. (Using CLEAR Version 5.1 the 

I default is BCOL=002.) 

ECOL=ending card column 

specifies the card column in which the BSL source statements end. 
The compiler uses this value as the rightmost source margin. You 
must specify a three-digit number, using leading zeros as neces- 
sary. The default is ECOL=072. 

CONCHAR=control character 

specifies a single character that will be used as the identifier of 
the compiler control statements in the compiler input. The default 
I is CONCHAR=$. (Using CLEAR Version 5.1 the default is CONCHAR=a . ) 

SIZE=dictionary size in multiples of 1000 bytes 

specifies the size of main storage (in multiples of 1000 bytes) 
that the BSL compiler may use for dictionary space. The default is 
I SIZE=U8. (Using CLEAR Version 5.1 the default is SIZE=30.) 

BSLRGN=region size in multiples of K 

specifies a region size for the BSL compiler job step. You specify 
a number up to four digits, followed by the character K (K=1024 

I bytes). The default is BSLRGN=175K. (Using CLEAR Version 5.1 the 

I default is BSLRGN=160K. ) 

INCLUDE=data set name 

causes the generation of a DD statement named SYSLIB which defines 
a DSNAME equal to the name shown in this keyword. The named data 
set must be cataloged. This parameter allows you to use the BSL 
INCLUDE option in your source program, provided the INCLUDE state- 
ment specifies SYSLIB in the ddname field. 

PVTMACS=data set name 

PVTMAC2=data set name 

PVTMAC3=data set name 

provides access to private macro libraries during the assembler job 
step of the BSL job. The requirements for using these keyword 
parameters are exactly the same as described in the CLEAR Program- 
mer* s Guide publication (Form Z28-6636) under the ALTER, EDIT, 
INTEG, MODIFY, and SCREATE verbs. 

If your system has not been modified with PTF number CL4017, you can- 
not use the optional keyword parameters described above- The default 
values are assigned for the BCOL, ECOL, CONCHAR, SIZE, and BSLRGN key- 
words; and the options for private libraries (INCLUDE, PVTMACS, PVTMAC2 , 
and PVTMAC3) are not available. 
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Section 5: Compiler Conventions and Restrictions 



This section describes: 

• The conventions that the BSL compiler follows for the generation of 
its assembler text output. These conventions concern the general 
form of the output program^ the types of compiler-generated state- 
ment labels, the use of registers, and the linkage to called and 
calling programs. You will need this information to communicate 
with or modify BSL-produced programs, or to include assembler text 
in your BSL source program. 

• The restrictions that affect the type of program you can successful- 
ly compile. Some of the restrictions are necessitated by the 
compiler's table sizes; others are due to BSL language 

imp leme nta t i on . 



General Forin o£ Compilation 

Compilation of a BSL external procedure produces one assembler language 
control section (CSECT) . Separate control sections are not generated 
for BSL internal procedures. The control section produced by the com- 
piler contains: 

• All the executable instructions generated by the compilation. 

• Compiler- generated constants and temporaries. 

• Data declared as STATIC LOCAL in the BSL source program. 

• An assembler language ENTRY statement for data declared as LOCAL 
EXTERNAL in the BSL program. 

• An assembler language EXTRN statement and an A-type address constant 
for items (except branch points) declared as NONLOCAL EXTERNAL in 
the BSL program. 

• An assembler language V-type address constant for all branch points 
external to the BSL program. 

• All text specified in BSL GENERATE statements. 

If you specify the REENTRANT option, the compiler also generates a 
dummy control sedtion (DSECT) to describe the AUTOMATIC storage that is 
required. 



Compiler-Generated Labels 

The labels (statement identifiers) that you use in the BSL source pro- 
gram are reproduced in the compiler- generated assembler text. However, 
the compiler must generate additional labels to identify areas, values, 
and statements created by expansion of the BSL program into assembler 
text. To help you identify various items in the assembler text, the 
conventions for compiler-generated labels are listed in Table 7. 
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As shown in Table 1 , almost all of the compiler-generated labels 
begin with either the character a or the character 6. The label types 
that may be needed more than once in a control section are followed by 
an integer that is incremented sequentially. For example, if four 
separate character constants are required, they may be labeled aci, aC2, 
ac3 , and acu . 



• Table 7. Labels Generated by the Compiler (Part 1 of 2) 



j Label 
I 



j Function 



h-- 



aADOl 



Identifies the address of aDATAl in a non-reentrent pro- 
gram when the DATAREG option is specified. 



aDATAl 



Identifies the compiler constant area. 



a DATA 



h— 



Identifies the start of the static data area, and the 
end of the generated code. 



aDATD 



Identifies the DSECT that describes the dynamic storage 
area. 



aDATEND 



+- 



Identifies the end of the DSECT that describes the 
dynamic storage, or the end of the data area in a non 
reentrant program. 



asizooi 



Identifies a value that represents the size of the 
dynamic storage area. 



&SPN 



Subpool number of dynamic storage for reentrant 
procedure. 



aTEMPS 



Identifies an area that contains space for temporaries. 



a CTEMP int eg er 



Identifies a string temporary. 



K' 



aTEMPmteger 



Identifies an arithmetic temporary which has high-order 
zeros. 



|__ 

aSAVinteger 



Identifies a procedure save area. 



aiFinteger 



Identifies a value that represents the length of a tem- 
porary area to be cleared for string expressions (vari- 
able length substrings). 



aL 



Identifies a value that represents the length of a tem- 
porary area needed in reentrant procedures. 



&T 



Used to initialize interleaved arrays. 



aPLinteger 



Identifies an argument list for reentrant procedures. 



aELinteger 



Identifies the epilogue of a procedure. 



aAinteger 



^- 

aBinteger 
I 

acinteger 



Identifies an A-type address constant. 



avinteger 



Identifies a V-type address constant. 

+ 

Identifies a bit constant. 



Identifies a character constant. 



(Part 1 of 2 
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Table 7 
r- 



Labels Generated by the Compiler (Part 2 of 2) 

r 

Function 



Label 
I 



aomteger 



Identifies an arithmetic constant. 



aTinteger 



Identifies a temporary location used for evaluating an 
aarithmetic expression. 



axmteger 
I 

aoointeger 



Identifies a hexadecimal constant. 



Identifies statements in the generation of a DO loop. 



aCLinteger 



Used in non-reentrant procedures to identify and branch 
around argument lists. 



a integer 



Used for IF branches and to branch around ELSE 
statements . 



aCLC 
aMvc 
aNC 
aoc 
axe 
I 

ao,ai,. 
h 



Identifies instructions which must be executed 
by means of an EX instruction. 



aF 



Symbolic names for the general registers. 



aooi 



Label of an ANOP following a LCLA assembler instruction. 



Ainteger 



Name generated for items declared without a name (*) 



aPSTART I Label for first instruction following the BALR that 
establishes the primary base register. 



Section 5: Compiler Conventions and Restrictions 59 



IBM confidential 



Register Conventions and Options 



Although your BSL source program need not be concerned with the use of 
registers, the BSL compiler must use registers in the generated assem- 
bler text. If you do not specify the BSL procedure options CODEREG, 
DATAREG, or REENTRANT, the compiler follows the basic register conven- 
tions listed in Table 8. 



• Table 8. Register Use Table 



r T ~i 

(Register | | 

I Number j Function | 

^ 1 ^ 

I [Alternate area for holding partial results of expression | 
I I evaluations. j 

^ 1 ^ 

I 1 I Used as pointer to parameter and argument lists. | 
j. + ^ 

I 11 I Used as base register for addressing data and code. j 
|. 1 _ ^ 

I 12 I Used as base register for addressing the dynamic storage | 
i I area in reentrant procedures. j 

^ ^ ^ 

I 13 (Used as pointer to the current procedure's save area. | 
|. _„+ ^ 

I in fused as linkage for calls. j 

J. + _ ^ 

I 15 I Used as branch register for external calls. | 

1 2 through 9, | Used to hold pointer values, index calculations, and | 
(and 12 |to evaluate arithmetic expressions. | 

|. + _ _ ^ 

I 10 and 14 |Used for subscript and substring computations. | 

J. ^ ^ 

114 cind 15 I Used to hold the results of expression evaluations. I 



The following procedure options affect the register assignment for 
the comt)ilation: 

CODEREG (register numbers) 

allows you to designate the base registers used for addressing the 
generated code. The registers -you specify replace register 11 as 
the base register, and are unavailable for any other purposes in 
the entire compilation. Registers 1, 10, 13, 14, and 15 cannot be 
specified in this option. 

If you specify zero as the register in this option, the compiler 
does not generate any addressability. In this case, the compiler 
assumes that you provided your own addressing by means of a 
GENERATE Statement, or that your program resides in the lower 4K of 
main storage. 

DATAREG (register numbers) 

allows you to designate the base registers used for addressing the 
data. The registers you specify are unavailable for any other pur- 
poses in the entire compilation. Registers 1, 10, 13, 14, and 15 
cannot be specified in this option. 

If you specify zero as the register in this option, then the same 
base register is used for the data and the executable code, and the 
compiler generates no storage or addressability for the AUTOMATIC 
data. 
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REENTRANT 

requires the existence of separate base registers for addressing 
data and code. You can designate specific registers by using the 
DATAREG and CODEREG options described above, or you can let the 
compiler assign the base registers by the following conventions: 

Register 12 — Base register for addressing the dynamic storage 
area. 

Register 11 — Base register for addressing the generated code and 
STATIC data. 



Linkage Conventions and Options 

The BSL compiler generates code to handle the linkage between called and 
calling programs. The code generated for BSL external procedures fol- 
lows the established OS type 1 linkage conventions; that is, specific 
registers are assigned to handle the various linkage functions, and a 
save area in storage is used to preserve the contents of all registers. 
You can use certain BSL procedure options to override the established 
linkage conventions. 

Use of Linkage Registers 

The OS type 1 conventions for the use of linkage registers are sxua- 
marized below: 

• Register 15 contains the address of the entry point to the called 
program. The called program can use register 15 as its initial base 
register for addressability. Register 15 can contain a return code 
when control is returned to the calling program. 

• Register 14 contains the address of the next sequential instruction 
in the calling program. The called program can use register 14 to 
return to the calling program. 

• Register 13 contains the address of the calling program's save area. 

• If parameters are passed to the called program, register 1 contains 
the address of a list of fullword quantities that are the addresses 
of the parameters. 

Use of Save Areas 

The OS type 1 conventions for the use of save areas are summarized 
below: 

• Every calling program provides a 72-byte save area for the preserva- 
tion of its registers, and places the address of this save area in 
register 13,. (If your program does not call any other programs, you 
need not provide a save area.) 

• The called program saves the contents of registers 14 through 12 in 
the calling program's save area, in accordance with the format shown 
in Table 9. 

• If the called program has no save area of its own, then the address 
of the calling program's save area is kept in register 13. 
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• If the called program has its own save area, then it places the 
address of the calling program's save area (from register 13) into 
the chain-back field of its own save area; and places the address of 
its own save area into register 13. Optionally, the called program 
also may place the address of its own save area into the chain- 
forward field of the calling program's save area. 

• Before returning to the calling program, the called program restores 
the contents of all registers. First the called program restores 
register 13 from its own save area Cif necessary) , and then uses 
this pointer to restore registers 14 through 12 from the calling 
program's save area. 



Table 9. Format of Save Area 



r T 

Word I Contents 



l~- 



Not used 



Chain back (address of calling program's save area) 
Chain forward (address of called program's save area) 



h- 



Register 14 (return address) 

Register 15 (entry point address and return code) 



Register 
Register 1 



I 

8 

9 

I 

10 

I— - 
11 

I 

12 



Register 2 
Register 3 



Register U 
Register 5 



Register 6 
Register 7 



13 

m 

15 
16 
17 
18 



Register 8 
Register 9 



Register 10 
Register 11 
Register 12 



Effect of Procedure Options 

There are three BSL procedure options (SAVE, DONTSAVE, and NOSAVEAREA) 
that modify the linkage conventions that are followed by the compiler. 
These options allow you to define your own linkage conventions, or to 
reduce the program housekeeping associated with internal procedures. 
The effect of these options is : 
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SAVE (register niambers) 

specifies the registers to be saved and restored. Only the regis- 
ters you specify are saved — you can use the other registers to 
propagate register changes back to the calling program. If you 
specify this option with no registers, all the registers are saved. 

DONTSAVE (register numbers) 

specifies the registers not to be saved. The registers you specify 
are not saved, and may be used to propagate register changes back 
to the calling program. If you specify this option with no regis- 
ters, none of the registers are saved. If register 13 is not 
saved, the chain forward field in the old save area is not updated - 

The SAVE and DONTSAVE options are mutually exclusive; that is, you 
cannot use both options in the same PROCEDURE statement. 

NOSAVEAREA 

eliminates the generation of a save area. This option is useful 
with a procedure that does not call any other procedures. When you 
use this option, your program: 

1. Does not establish a save area. 

2. Does not update the chain- forward field in the calling pro- 
gram's save area. 

3. Does not restore the contents of register 13 before returning 
control to the calling program. 

Note ; You can suppress all of the BSL compiler's initial procedure hou- 
sekeeping by specifying DONTSAVE, NOSAVEAREA, CODEREG(O) , and 
DATAREG(O). 



Conventions for Reentrant Procedures 

If you specify the BSL procedure option REENTRANT, the compiler 
generates reentrant code in accordance with the conventions described in 
the following paragraphs. You should note that the generated code is 
reentrant only for the BSL external procedure together as a unit with 
its internal procedures. In other words, the internal procedures by 
themselves are not reentrant. 

Obtaining Dynamic Storage 

In the prologue of the external procedure, the BSL compiler generates an 
OS GETMAIN macro instruction to obtain an area for dynamic storage. The 
storage is obtained from subpool 0. A different subpool can be speci- 
fied by setting &SPN to the desired value. For example: 

r 1 

I GEN; I 

I gSPN SETA 1 I 

j $ENDGEN I 

L J 

This will set the subpool number to 1. If you do not intend to execute 
a reentrant program under OS, you specify the procedure option 
DATAREG(O), in which case the compiler generates no storage or addressa- 
bility for the AUTOMATIC data (you must obtain your own dynamic 
storage.) 

Section 5: Compiler Conventions and Restrictions 63 



IBM Confidential 



The code expansion of the GETMAIN macro instruction requires the use 
of register 1. If your procedure has one or more parameters, the com- 
piler generates code to restore register 1 after execution of GETMAIN. 
If your procedure has no parameters, register 1 is not restored. If you 
need to preserve the contents of register 1, you can specify a dummy 
parameter for your procedure. 

The size of the dynamic storage area required by the procedure is 
always stored in an area labeled asiZOOl, which is one fullword in 
length and located on a word boundary in the static area. You can use 
this size specification to obtain your own dynamic storage. 

Using the Dynamic Storage Area 

The compiler maps the dynamic storage area in a dummy control section 
(DSECT) labeled aDATD, A separate base register is assigned to address 
this area — you can specify a particular register with the procedure 
option DATAREG. 

Data generated by GENERATE DATA statements will be placed in the 
dynamic storage area. Remember to use only define storage and equate 
statements, not define constants. 

Data items that are not initialized, as well as data items that are 
declared AUTOMATIC, are placed in the dynamic storage area by default. 
The compiler will not allow you to to specify the INITIAL attribute for 
data declared as AUTOMATIC, 

Save areas are located in dynamic storage. 

When non- arithmetic items or off -boundary arithmetic items are used 
in arithmetic expressions, the compiler requires a temporary storage 
space with high-order zeros. In a reentrant environment, the compiler 
generates code to clear an area for this temporary storage — the area 
is labeled flTEMPS and its length is equated to the label SL. If you 
specify the DATAREG (0) option to suppress the GETMAIN macro instruction, 
then you assume responsibility for clearing this temporary area. This 
can be accomplished with the following instruction: 



r 

JGEN (XC aTEMPSOL) ,aTEMPS) ; 

L : 
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BSL Size Restrictions 

The maximum size of some items in your BSL procedure are limited by the 
size of the compiler's work areas. These size restrictions are listed, 
by category, in Table 10. 



• Table 10. BSL Size Restrictions (Part 1 of 2) 



r 

litem 

|. 

Internal procedures 



i Limitation 



The maximum number of internal procedures in a 
single compilation is 14. 



H 



Secondary entry points 



The maximum displacement between a secondary 
entry point and the beginning address of the 
procedure is 4095 bytes. 



Variables 



Generally, the number of variables in a single 
compilation should not exceed 1000 (with 
SIZE=96). 

. 1_^ 

The maximum number of unique FIXED constants in 
a single compilation is 75. 

The maximum number of unique address constants 
in a single compilation is 75. 

The maximum length of a string constant in an 
INITIAL attribute is 256 characters. The maxi- 
mum length of a string constant in an assign- 
ment statement is 53 characters. A constant 
such as 'OlO'B counts as three characters. 

The maximum total length of all string con- 
stants in a single compilation is 1400 charac- 
ters. A constant such as 'OlO'E counts as 
three characters. Duplicates do not count. 
Constants used as initial values in DECLARE 
statements do not count. 



Constants 



Structures and arrays 



\ 

I DO loops 



The maximum number of levels in a structure is 
255. This maximum applies to the actual number 
of levels. 

The maximum number of components in any one 
level of a structure is 255. 

The maximum offset of any element in a struc- 
ture from the beginning of its major structure 
is 32,767 bytes. 

The maximum dimension of an array is 32,767 
bytes. An array can have only one dimension. 
4 \ 

I The maximum level of nesting for DO loops is 8.j 

-JL J 

(Part 1 of 2) 
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Table 10. BSL Size Restrictions (Part 2 of 2) 



r 

(Item 



j Limitation 



IF statements 



The maximum level of nesting for IF statements 
is 14. 



The maximum number of true/ false branches in an 
IF statement is 24. The maximum number of 
true/false branches in a nest of IF statements 
is 50 . The number of true/false branches is 
equal to the number of IF statements plus the 
number of logical connectives ( | or &) . 



Pointers 



The maximum number of explicit pointer qualifi- 
cations applied to a variable is 7. 



The maximum number of implicit pointer qualifi- 
cations is 7. 



Factored attributes 



The maximum number of left parentheses used to 
factor attributes in a DECLARE statement is 20. 



The maximum number of identifiers that can have 
factored attributes in a single declaration is 
49. 



CALL Statements 



The maximum number of arguments in a CALL sta- 
tement is 25. 



Macro statements 



The maximum number of macro variables and 
labels is 500. 



The maximum length of a macro string variable 
is 1000 bytes. The total length of all macro 
string variables should not exceed 45,000 bytes 
at any one time. 



The range of a macro FIXED variable is from 
-9999999 to 99999999. 
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BSL Language Restrictions 



Some uses of the BSL language features are not supported by the current 
compiler. These language restrictions are described, by general cate- 
gory, in the following paragraphs. 

Reserved Words 

Some words have special meanings to the BSL compiler, and therefore must 
not be used as identifiers in your BSL source program. These reserved 
words are: 



ABS 


END 


PROCEDURE 


ADDR 


ENTRY 


RELEASE 


BY 


GEN 


RESTRICT 


CALL 


GENERATE 


RETURN 


DCL 


GO 


THEN 


DECLARE 


GOTO 


TO 


DO 


IF 




ELSE 


PROC 





The following v^^ords are reserved only in the compiler's macro phase: 

ACT 

ACTIVATE 

DEACT 

DEACTIVATE 

INCLUDE 

Procedure Format 

An internal procedure must be placed immediately preceding the END 
statement of the external procedure. If more than one procedure is 
internal to the same external procedure, they must immediately follow 
one another and tlie group must be immediately followed by the END state- 
ment of the external procedure. An example of an illegal format is: 



I A: PROC; 



. ^ 



B : PROC ; 



END B ; 
X = 1; 
END A; 



/* THE POSITION OF THIS STATEMENT IS ILLEGAL */ 



L 



J 



Procedure Parameters 

Parameters common to more than one entry point must be in the same 
parameter position. You can use diammy parameters to obtain proper posi- 
tioning. An example of this restriction is: 



|R1: 
|R2: 
|R3: 
|R4: 

L 



PR0C(Q1,Q2); 
ENTRY (Q1,Q2,Q3) 
ENTRY(Q2,Q1,Q3) 
ENTRY (Q3,Q1,Q2) 



/* LEGAL */ 

/* ILLEGAL PARAMETER POSITIONS */ 

/* ILLEGAL PARAMETER POSITIONS */ 
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If the main entry point has no parameters, secondary entry points 
cannot have parameters- An example of an illegal parameter at a secon- 
dary entry point is: 



I 1 

I A: PROC; j 



|B: ENTRY (PI); /* ILLEGAL PARAMETER */ 

L 



Internal procedures cannot reference parameters of the containing 
procedure. An example of illegal reference is: 



r 

PI: PROC(A); 

DECLARE B FIXED; 
P2: PROC; 

A = 5; /* ILLEGAL REFERENCE TO A */ 
B = 5; /* LEGAL REFERENCE TO B */ 
END P2; 
END PI; 



CALL Statements 

You cannot use an explicit pointer to qualify the entry name in a CALL 
STATEMENT. An example of illegal qualification is: 



r 1 

I CALL P-> NAME; /♦ ILLEGAL POINTER QUALIFIER */ j 

L . J 

Arguments in a CALL statement must not be: 

• REGISTER variables. 

• Expressions involving 'and*, 'or', or 'exclusive or* operations. 

• Bit strings that are not on byte boundaries. 

Addresses 

If the constant displacement from the starting address of EXTERNAL, 
parameter, or BASED data items is greater than 4095 bytes, an addressing 
error occurs. The constant displacement is equal to the sum of the 
following : 

• For an element in a structure, the displacement of the element from 
the beginning of the major structure. 

• For an array element with a constant subscript, the product of the 
constant subscript, minus one, and the element length. 

• For an element with a constant substring, the displacement of the 
initial character of the substring from the beginning of the base 
string . 

An example of an illegal displacement is: 
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r ^ 

|DCL 1 X BASED (P), 

2 Y CHAR ( 5000) r 

2 Z CHAR(l); 

= 'A': /* ADDRESSING ERROR OCCURS BECAUSE ELEMENT Z IS 5000 BYTES 
FROM BEGINNING OF STRUCTURE */ 

L J 



If an absolute address is used in the declaration of a BASED attri- 
bute, that address cannot be greater than 65,535. An example is; 



J. ^ 

JDCL A BASED (70000); /♦ ILLEGAL ADDRESS */ j 

L J 



Register Attribute 

Data declared with the REGISTER attribute must be either FIXED (31), 
PTR(31), or PTR(24). No boundary attribute can be specified. 

Initialization 

Arithmetic items must not be initialized with BIT or CHARACTER con- 
stants, or with addresses. 

String items must not be initialized with a character string that is 
longer than the declared length of the string item. 

String items must not be initialized with binary or decimal con- 
stants, or with addresses. 

If hexadecimal or bit string constants do not fill a byte multiple, 
the low-order bits are padded with zeros. 

If bit string items are initialized as components of a structure, or 
are elements of a bit array, bits are not packed; that is, each bit 
string starts on a byte boundary. For example: 

r 

DCL 1 X, 

2 R BIT(l) , 

2 Y BIT(3)INIT(*111'B); 
/* R AND Y ARE NOT PACKED INTO THE SAME BYTE */ 

2 Z(5) BIT(l); 
/* EACH ELEMENT OF Z IS IN SEPARATE BYTE */ 
L J 



String Items 

String items used in arithmetic expressions cannot be longer than 4 
bytes. String items used in assignment statements or comparison expres- 
sions cannot be longer than 256 bytes. 

String Assignment Statements 

If a bit variable is assigned to a bit variable, the variables must be 
on byte boundaries and must be multiples of 8 bits. An example of legal 
and illegal assigitiments is: 
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I 1 

JDCL A BIT (16), B BIT(8), C BIT (3); j 

I A = B; /* LEGAL ASSIGNMENT ♦/ j 

I A = C; /* ILLEGAL ASSIGNMENT +/ j 

I C = A; /* ILLEGAL ASSIGNMENT */ | 

L J 

If a bit constant is assigned to a bit variable, and the bit variable 
is not on a byte boundary, then the assigned bit string must not cross 
two byte boundaries (it may cross one byte boundary.) If the bit vari- 
able is aligned on a byte boundary, the length of the bit string is not 
I restricted. Examples of legal and illegal assignments are: 

r— 1 

DCL 1 R, 

2 X BIT (3) 
2 M BIT(13) , 
2 Q BIT (3); 
M = • 1111110000001 'B; /* LEGAL BECAUSE IT CROSSES ONE BYTE 

BOUNDARY */ 
DCL 1 R, 

2 X BIT (3), 
2 M BIT(14) , 
2 Q BIT(2); 
M = 'lllllllOOOOOOO'B; /* ILLEGAL BECAUSE IT CROSSES TWO BYTE 

BOUNDARIES */ 

Comparison Expressions 

If the left side of a string comparison has constant length substring, 
the right side cannot have a variable length substring. For example: 

r— • — 1 

jDCL (A,B) CHAR(IO); j 

j IF A (I: J) = B(K:L) THEN... /* LEGAL ♦/ | 

I IF A = B(K:L) THEN... /* ILLEGAL */ j 

L ^ . .^ J 

The length of the left side of a string comparison should be equal to 
the length of the right side. If the right side is longer, the compari- 
son is still made by ignoring the extra length. However, if the left 
side is longer, no comparison is made and an error message is issued. 
For example: 

r ■ 1 

jDCL (A,B) CHAR(IO), (C,D) CHAR(U); j 

I IF A = C THEN GOTO LI; /* ILLEG/Uii */ | 

I IF (A&B)>(CgD) THEN GOTO Ll ; /* ILLEGAL */ | 

If a string data item appears on the left side of a comparison, then 
only string data items can appear on that side of the comparison. An 
example of illegal combinations is: 

r— 1 

I DCL C4 CHAR(4), F31 FIXED (31), P31 PTR(31); j 

I IF (C4&F31) = THEN GOTO Ll ; /* ILLEGAL */ | 

i IF (P31 gg C4) > THEN GOTO Ll; /* ILLEGAL */ j 

L . J 

Expressions involving comparison operators, as well as comparisons 
connected by *and' or 'or* operators, must not be enclosed in paren- 
theses. However, when 'and*, 'or', or 'exclusive or' is used as a bit 
operator in an IF statement, the containing expression must be enclosed 
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in parentheses, 
example : 



Use of the parentheses is shown in the following 



I IF A>B|C>D THEN.... /* LEGAL */ 

|IF (A>B) I (OD) THEN... /* ILLEGAL */ 

JIF A>B&C>D|E = F THEN... /* LEGAL */ 

JIF (A>B&C>D)|E = F THEN... /* ILLEGAL */ 

I IF (A|B) = (CgD) THEN... /* LEGAL */ 

|IF AjB = C£D THEN... /* ILLEGAL */ 

|IF (ASB)>C THEN.... /* LEGAL */ 

I IF AgB>C THEN... /* ILLEGAL */ 

L 



If a comparison involves a bit variable that is not on a byte bound- 
ary, a bit variable not a multiple of eight bits on a byte boundary, or 
a bit constant that is less than eight bits, then the bit variable or 
constant must be: 

• Entirely contained within the boundaries of one byte. 

• On the left side of the comparison. 

• Compared to a bit constant which is either all ones or all zeros. 

• Compared by the = or t= operator. 

For example: 



Y BIT (3), 

Z BIT (5) 1! 

3) = 'IH'E THEN GOTO Ll; /* LEGAL */ 

3) = 'lOl^B THEN GOTO Ll ; /* ILLEGAL BECAUSE BIT CONSTANT IS 

MIXED ONES AND ZEROS ♦/ 
BIT (8); 

11' B THEN GOTO Ll; /* LEGAL */ 
10 'B THEN GOTO Ll ; /* ILLEGAL BECAUSE BIT CONSTANT IS 

MIXED ONES AND ZEROS */ 



|DCL 


1 R, 




2 




2 


1 IF 


Z(l: 


1 IF 


Z(l: 


1 DCL B8 


1 IF 


B8=' 


1 IF 


B8=' 



Subscript Notation 

Subscript expressions must contain either decimal constants or unsub- 
scripted, unsubstringed variables. The subscript expression can contain 
'exclusive or', 'or', 'and', plus, minus, or multiplication operators 
(g&, I , S,+,-, *) ~ but not the division operator. Operators must appear 
in order of binding strength (from low to high). A subscript expression 
cannot contain a subset of parentheses. Examples of subscript form are: 



DCL A (10) FIXED; 
A(3) = 0; 
A(I) = 0; 
A(3+J) = 0; 
A(10-2*I) = 0; 
A(I6J&10*K) 
A(K+L+M+N*Q) = 0; 
A(K+L+M*N*Q) = 0; 
A(B->C) = 0; 
A(A(1)) = 0; 
A(K/L) = 0; 
A(2*I+1) = 0; 

A(10-(2*I)) = 0; 



/* LEGAL */ 

/* LEGAL */ 

/* LEGAL */ 

/* LEGAL */ 

/* LEGAL */ 

/* LEGAL */ 

/* LEGAL */ 

/* LEGAL */ 

/* ILLEGAL BECAUSE SUBSCRIPT IS SUBSCRIPTED */ 

/* ILLEGAL BECAUSE DIVISION OPERATOR IS USED */ 

/* ILLEGAL BECAUSE OPERATORS ARE NOT IN ORDER OF 

BINDING STRENGTH */ 
/* ILLEGAL BECAUSE PARENTHESIS IS NOT ALLOWED IN 

SUBSCRIPT */ 
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A bit string item that is not on a byte boundary or is not a multiple 
of eight bits cannot be used as a subscript. 



The control variable of a DO statement cannot be subscripted, 
example is : 



An 



|DCL A (10) FIXED; 

I DO A (2) =1 TO 10; 

L 



/* ILLEGAL CONTROL VARIABLE */ 



In a declaration, a locating expression that is associated with a 
BASED item cannot be subscripted or substringed. In a reference state- 
ment, a pointer that is associated with a BASED item cannot be 
subscripted. Examples are: 



r — — 

JDCL 
|DCL 
JDCL 
JDCL 
|DCL 



X CHAR(3), P PTR; 

CAT CHAR(l) BASED (P) 

FAT CHAR (2) 

RAT CHAR (4) 

BAT CHAR (3) 
|DCL HAT CHAR (3) 
|DCL MAT CHAR (3) 
JDCL P(10) PTR, R 
|P(1)->R = 3; 

L . 



BASED (P+1) ; 
BASED(72); 
BASED (ADDR (FAT) ) ; 
BASED (ADDR(X)+1) ; 
BASED(ADDR(X(1))) 
BASED (P(l)) ; 



/* LEGAL */ 
/* LEGAL */ 
/♦ LEGAL */ 
/* LEGAL */ 
/* LEGAL */ 
/* ILLEGAL ♦/ 
/* ILLEGAL */ 
/* ILLEGAL */ 



Substring Notation 

Substring expressions must contain either constants or unsubscripted, 
unsubstringed variables. The substring expression can contain 'exclu- 
sive or' , *or • , 'and* , plus, minus, or multiplication operators (8S, , S,+,-, 
*) — but not the division operator. Operators must appear in order of 
binding strength (from low to high). A substring expression cannot con- 
tain a subset of parentheses. Examples of substring form are: 



|DCL CHAR30 CHAR (30) 


• 


(DCL A CHAR (10); 




|AC3) = '0'; 


/* 


|A(I) = '0'; 


/* 


|A(3+J) = '0'; 


/* 


|A(10-2*I) = '0'; 


/* 


|A(ieJ&10*K) = '0'; 


/* 


|A(K+L+M+N*Q) = '0'; 


/* 


|A(K+L+M*N*Q) = '0'; 


/* 


|A(B-C) = '0'; 


/* 


|A(I:I+4)=«xy' ; 


/* 


|A(I+1:I+K)=CHAR30; 


/* 


|A(A(1)) = '0'; 


/* 


|A(K/L) = '0'; 


/* 


|A(2*I+1) = '0'; 
1 


/* 


|A(10-(2*I)) = '0'; 
1 


/* 



LEGAL ♦/ 

LEGAL */ 

LEGAL */ 

LEGAL */ 

LEGAL */ 

LEGAL */ 

LEGAL */ 

LEGAL */ 

LEGAL */ 

LEGAL */ 

ILLEGAL BECAUSE SUBSTRING IS SUBSTRINGED */ 

ILLEGAL BECAUSE DIVISION OPERATOR IS USED */ 

ILLEGAL BECAUSE OPERATORS ARE NOT IN ORDER 

OF BINDING STRENGTH */ 

ILLEGAL BECAUSE PARENTHESES ARE NOT ALLOWED 

IN SUBSTRING ♦/ 



A bit string item that is not on a byte boundary or is not a multiple 
of eight bits cannot be used as a substring. 

A bit string cannot be substringed with a variable that specifies a 
single bit. For example: 
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r T 

jDCL B Bit (32); j 

[ B(I)= "I'B /* ILLEGAL */ | 

L . J 

An arithmetic or pointer item cannot be substringed. An example is: 

I 1 

JDCL (A,B) FIXED; j 

I A = B(2); /* ILLEGAL SUBSTRING */ | 

L , J 

A String constant of one byte cannot be assigned to a substring with 
a variable range . For example : 

r ■ 1 

|DCL A CHAR(6); j 

I A (I: J) = 'B*; /* ILLEGAL */ | 

L J 



Note ; If a bit variable has a variable substring range the compiler 
assumes, but does not check to assure, that the lower bound specifies 
the first bit of a byte and the upper bound specifies the last bit of a 
byte. 

The compiler assumes that the range of the substring notation does 
not exceed the range of its associated string item. However, there is 
no enforced restriction to this effect, and the compiler does not pro- 
vide code to check the range. In the following example: 

r 1 

|DCL A CHAR(6); | 

I A (I: J) = X; I 

L ■ J 

the compiler does not provide code to check that: 

• I is equal to, or greater than one. 

• J is equal to, or less than six. 

• I is equal to, or less than J. 

• J minus I, plus one, is not greater than the length of X. 
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Section 6: Compiler-Generated Code 



This section contains examples of the code generated by the current BSL 
compiler to manipulate various kinds of data. (Future compilers may not 
generate the same code, ) 

It is provided for two reasons : 

• With this information the user can obtain insight to produce better 
and more efficient code. 

• The user will have closer control of the hardware and software 
interfaces. 

This section is organized to provide easy access to examples of dif- 
ferent data. It illustrates how changing the attributes of data affects 
the way it is accessed. Included in the section is information on 
arithmetic and string expressions. 



Arithmetic Expressions 

Unless otherwise noted the following conventions are used in the example 
of arithmetic expressions: 

• A, B, C, etc. represent FIXED (31) variables. 

• Fn represents a fixed item with precision n. 

• Pn represents a pointer with precision n. 

• ar and Sri represent any available registers. 

Register Usage 

The BSL compiler always uses register 15 for evaluating arithmetic 
expressions. Register lU will be used with register 15 when an even/odd 
pair of registers is required. For example: 

. ^ 



r 




|A=B*C+D; 




i L 


aF,c 


1 K 


aE,B 


1 ^ 


aF,D 


1 ST 


aF,A 



L . J 

For expressions containing a subscripted, substringed, based or non- 
local variable, another register will be used to compute the address of 
the variable. The variable will then be used as if no address calcula- 
tion was necessary. For example: 

r ■ —1 



|DCL P 


PTR, 


B BASED (P) ; 




|DCL C(10) 


FIXED; 




|A=B + 


C(I) 







1 L 




ar,I 


COMPUTING THE ADDRESS 


1 SLA 


ar,2 


OF C(I) 


i L 




aF,C-4 (ar) 


LOAD C(I) 


i L 




arl,P 


ADDRESS OF B 


i ^ 




aF,o (0,ari) 


USE OF B 


1 ST 




aF,A 





L . J 
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If a register is available, it will be used for evaluating parts of 
an arithmetic expression when register 15 already has a partial result. 
When no register is available, register 15 will be stored in a compiler 
generated temporary and evaluation will continue in register 15. For 
example : 



|A=B+C & D+E; 


1 L 


aF,c 


1 ^ 


aF,B 


1 L 


ar,E 


1 ^ 


ar,D 


1 NR 


aF,ar 


1 ST 


aF,A 



Compiler Generated T^nporaries 

Temporaries are generated to hold partial results of arithmetic expres- 
sions when no register is available to continue the evaluation. The 
code shown above would compile as follows if no register were available: 



|A=B+C g 


D+E; 


i L 


aF,c 


1 A 


aF,B 


1 ST 


aF,aTi 


t L 


aF,E 


1 ^ 


aF,D 


1 N 


aF,aTi 


1 ST 


aF,A 



Unsigned data (CHAR, BIT, or PTR) that occupies two or three bytes 
will be moved to a compiler- generated temporary with high order zeros 
before it is used. This is to eliminate the sign bit from the opera- 
tion. For example: 



|DCL PI 6 


PTR (16) ; 


|A=B + P16; 


1 MVC 


aTEMP2+2(2) 


1 L 


aF, a TEMP 2 


1 ^ 


aF,B 


1 ST 


aF,A 



P16 



A temporary will be used to align data that is not on an appropriate 
boundary. For example: 



DCL F31 FIXEDOl) BDY(W0RD,2); 
A=B + F31; 

MVC aT4(4),F31 

L aF,aT4 

A aF,B 

ST aF,A 
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Fixed Data 



FIXED (31) and FIXED (15) data items used in arithmetic statements are 
normally manipulated with fullword or half word RX instructions. For 
example : 



|F31=F31 + F15; 
I LH aF,F15 
I A aF,F31 
I ST aF,F31 

L 



FIXED items that are not on appropriate boundaries are moved to 
compiler- generated temporaries that are on appropriate boundaries, and 
the temporaries are manipulated with RX instructions. For example: 



DCL F31 FIXED(31) BDY (WORD, 2); 
A=B + F31 : 

MVC aTU ( 4) , F31 

L aF,aTU 

A aF,B 

ST aF,A 



FIXED items with register storage class are manipulated with RR 
instructions. For example: 



r 

I DCL R2 REG (2) ; 
iA=B + R2; 
I LR aF,a2 
I A aF,B 
I ST aF,A 

L 
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Pointer data 



The way a pointer is accessed depends on its precision, boundary, and 
storage class. The following examples show the code that would be 
generated to access pointers of various precisions with default bound- 
aries, when used as pointers and as arithmetic items. 



r 


' ■ 


" ™ — -T ~ ^ 


- 


~ 1 


1 1- 


A=P8-> 
SR 
IC 
L 
ST 


7B; 

ar, ar 

ar,P8 

aF,o(0,ar) 
aF,A 






1 2. 


A=P8; 
SR 
IC 
ST 


ar, ar 
aF,P8 
aF,A 






1 3. 


A=P15-> 
LH 
L 
ST 


B; 
ar,P15 

aF,o(o,ar) 

F,A 






1 '^• 


A=P15; 
LH 
ST 


aF,pi5 
aF,A 






1 5. 


A=Pl6-> 
MVC 
L 
L 
ST 


B; 

aTEMP2+2(2),Pl6 

ar,aTEMP2 

aF,o(o,ar) 
aF,A 






1 6. 


A=P16 ; 
MVC 
L 
ST 


aTEMP2+2(2) ,P16 
aF,aTEMP2 

aF,A 






1 7. 


A=P24-> 
L 
L 
ST 


B; 
ar,P24-l 

aF,o(o,ar) 
aF,A 






i S- 


A=P2a ; 
MVC 
L 
ST 


aTEMPl+l(3) ,P24 
aF, TEMPI 

aF,A 






1 9. 


A=P31-> 
L 
L 

ST 


B; /* THE SAME CODE IS GENERATED FOR 
ar,P31 

aF,o(o,ar) 
aF,A 


P32 */ 




jlO. 


A=P31; 
L 
ST 


/* THE SAME CODE IS GENERATED FOR 
aF,P31 
aF,A 


P32 */ 


J 



A pointer with other than a default boundary will be moved to a tem- 
porary with the appropriate boundary, and the temporary will be accessed 
with the same sequence of code generated for precisions 31 and 32. For 
example : 



|DCL P15 


PTR(15) BDY (WORD, 2); 


|A=Pl5-> 


B; 




1 MVC 




aTEMP2+2(2) ,P15 


1 L 




ar,aTEMP2 


1 L 




aF,o<:o,ar) 


1 ST 




aF,A 



1 



J 
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A pointer with register storage class will generate the same sequence 
of code without loading the pointer into a register. For example: 

r 1 

|DCL P2U PTR REG(5); 

|A=P2U -> B; 

I L aF,0(0,a5) 

I ST aF,A 

I or 

|A=P24; 

I ST as, A 

A pointer that is a parameter, a nonlocal pointer, or a based pointer 
will generate the same sequence of code with additional code to locate 
the pointer. For example: 

r— ' — 1 

JDCL P15 PTR (15); 

|DCL P8 PTR(8) BASED (P15) ; 

|A=P8; 

I LH ar,P15 ADDRESS OF P8 

I SR aF,aF 

I IC aF,0(0,ar) P8 

I ST aF,A 

L J 

string Data 

String data is unsigned. Whenever possible the BSL compiler generates 
code to prevent the high order bit from being treated as a sign. 

The sign is eliminated from one byte items by using the SR-IC 
sequence. For example: 

r — ■ ■ 1 

|A=C1; I 

I SR aF,aF j 

I IC aF,ci I 

I ST aF,A I 



L. 



For two and three byte items a compiler generated temper aiy with high 
order zeros is used. For example: 

~i 



|A=B+C2; 




1 MVC 


aTEMP2+2(2),C2 


1 L 


aF,C2 


1 ^ 


aF,B 


1 ST 


aF,A 



L .-J 

Logical instructions are used whenever possible for four byte items. 
For example: 

r ■ ■ 1 

|A=C4+B; I 

I L aF,B I 

I AL aF,C4 I 

I ST aF,A I 

L J 

String items longer than four bytes are not allowed in arithmetic 
expressions. 
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String Expressions 

No registers are involved in the evaluation of a string expression, 
(except for calculating the addresses of operands that are subscripted, 
substringed, based, or nonlocal). The expression will either be evalu- 
ated in a temporary or in the receiver of an assignment statement. 

A temporary will be used for string expressions in IF statements, and 
for assignment expressions that include the variable that will have the 
result of the expression assigned to it. For example: 

r 1 

[DCL (A,B,C,D) CHAR(4); 
IF(AgB)=(C&D) THEN... 

MVC aCTEMPl(U),B 

NC aCTEMPl(4),A 

MVC aCTEMP2(4),D 

NC aCTEMI?2(U),C 

CLC aCTEMPl(4) , aCTEMP2 
and 
|A=B&A&C; 

MVC aCTEMPl(U),C 

NC aCTEMPl(4),A 

NC aCTEMI?l(U),B 

MVC A(4),aCTEMPl 
L J 

The receiver of an assignment statement will be used when it does not 
appear in the assignment expression, or it appears in the expression in 
such a way that it can be used first when: 

r T 

lA=BgC; /* RECEIVER DOES NOT APPEAR */ 

MVC A(4),C 

NC A(4),B 
or 
A=B&A; /* CAN BE USED FIRST */ 

NC A(4),B 

L -. J 

Expressions with variable length strings are evaluated using the same 
criteria for deciding whether to use the assignment receiver or a tem- 
porary. Whatever is used, it will be zeroed (or blanked) before it is 
used to insure that shorter operands will be properly extended. Regis- 
ters 10,14, and two other registers are used in all operations with 
variable-length strings. For example: 



BLANK A IN CASE C(I:J) 
IS SHORTER THAN A 



r 






|A=B&C(I: 


J) 


1 


1 ^ 




ar,J 


1 MVI 




A,C*b* 


1 MVI 




A+l(3) ,A 


i L 




arl,i 


1 LA 




aE,c-i(ari) 


1 SR 




ar, arl 


1 BCTR 




ar,o 


1 LA 




aA,A 


1 EX 




ar,aMvc 


1 NC 




A(4) ,B 
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Section 7: BSL Programming Techniques 



This section describes a variety of prograinniing techniques that you can 
use to: 

• Format your source program. 

• Handle parameters and argument lists. 

• Improve the compiler-generated code. 

• Manipulate data. 



Formatting the Source Program 

The modular arrangement of your program affects the efficiency of its 
operation. The appearance of your program — the way your source state- 
ments are set up — is an important debugging tool. Both the arrange- 
ment and the appearance are factors in making future changes and 
analyses. 

Use of External Procedures 

Invoking a procedure generates more instructions than branching to a 
label; therefore, you should not write a separate procedure for an 
operation that can conveniently be placed in line. 

You may find it convenient to modularize a programming task by break- 
ing it up into a number of separately compiled procedures. However, 
this convenience should be balanced against the resulting call, pro- 
logue, and epilogue overhead. If you modularize your program, keep down 
the overhead by carefully planning the breaks between procedures. 

Organization of Soiirce Statements 

The following guide lines^ may help you produce a source program listing 
that is easy to read, easy to understand, and easy to use: 

• Avoid placing many BSL statements on a single card. This can cause 
difficulty when it is necessary to change one statement on the card. 

• Adopt specific conventions about the placement of comments in your 
source statements. 

• Group your DECLARE statements at the beginning of the procedure. 

• Indent each DO statement in a nest of DO statements, and line up 
each END statement under its associated DO statement. This ensures 
that you properly close each DO group. Also, indent and align all 
statements applicable to each DO statement. 

• When you write nested IF statements, adopt a specific convention to 
associate each IF statement with its ELSE clause. A suggested 
method is to indent each IF statement in the nest, and line up its 
ELSE clause under it. 



^Additional information on guide lines is available in BSL Bulletin 
Number Four or in the Design S\immary Book Section 3.50.17. 
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Handling Argument Lists and Parameters 

Argument lists and parameters are the means of communication between 
procedures. The following paragraphs discuss a few techniques for 
handling this communication. 

Building an Argument List 

You can let the compiler generate code for building the necessary argu- 
ment lists, or you can build your own- There are two conditions under 
which you may want to build your own argument lists: 

1. If a particuiLar argument list is used many times, you can save 
space by building it yourself. Otherwise, the BSL compiler builds 
a separate argioment list for each CALL statement in your program. 

2. You may need an argument list that is different from the one 
generated by the compiler. 

The following example shows how to build your own argument list for 
calling the PDUMP routine: 



DCL 
DCL 
DCL 

DCL 



/* THIS BUILDS AN ARGUMENT LIST FOR PDUMP */ 
DCL LI CHAR(l) INIT('A'); 
A CHAR (50) ; 
L2 CHAR(l) INIT ('*•); 
LEN FIXED INIT( 50) ; 
1 ARG, 

2 TYPE PTROl) INIT(ADDR(L1)) , 
2 ADCON PTROl) INIT(ADDR(A) ) , 
2 LENGTH PTROl) INIT (ADDR(LEN) ) , 
2 STOP PTROl) INIT(ADDR(L2)); 
/* ARGUMENT LIST DEFINED AS A STRUCTURE */ 
RESTRICT (1) ; 
DCL Rl REG(l) PTROl); 

Rl =ADDR(ARG); /* POINT Rl TO ARG LIST 
CALL PDUMP; 



CALL PDUMP; 



*/ 
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Passing an Arqumen-b List, in a Register 

To pass an argiiment in a register, you must set the register in the cal- 
ling procedure, and preserve its value on entry to the called procedure. 
This example shows how: 



r 

X: PROC; 

DCL TAB CHAR(80), R3 REG(3) PTR(31); 

RESTRICT (3) ; 

R3 = ADDR(TAB); /* SET R3 TO POINT TO TAB */ 

CALL IN; /* INVOKE PROCEDURE */ 



IN: PROC; 

DCL FAB CHAR(80) BASED(R3); /* FAB BASED ON R3 */ 

RESTRICT(3) ; 

IF FAB(l) = "$' THEN DO; 



END IN; 
END X; 



How to Avoid Passing Arguments 

For performance reasons, it is sometimes desirable to avoid passing 
arguments to procedures. There are two ways to do this: 

1. An internal procedure can directly access all the data declared in 
the external procedure. 

2. If an external procedure is called and the data to be communicated 
is static, declare the data LOCAL EXTERNAL in the calling procedure 
and NONLOCAL EXTERNAL in the called procedure. 



Variable Parameter Lists 

The BSL language does not support variable length parameter lists, but 
you can handle them with the following method: 

1. The calling procedure declares the procedure having the variable 
parameter list with OPTIONS (VLI ST) and calls it with the standard 
CALL statement. 

2. The called procedure defines its own parameter list and searches 
for the end of the list. 
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This method is illustrated in the following example: 

I 

CALLPROC: PROC; 



DCL VPLIST ENTRY OPTIONS (VLI ST) ; 
CALL VPLIST (A1,A2); 
END CALLPROC; 

VPLIST: PROC; /* NO FORMAL PARAMETERS */ 

DCL Rl REG(1)PTR; /* Rl POINTS TO THE ARGUMENT LIST */ 
RESTRICT (1); 

/* IF THIS PROCEDURE WILL CHANGE REGISTER 1 — BY */ 
/♦ GENERATING A SYSTEM MACRO FOR EXAMPLE — THEN */ 
/♦ A COPY OF REGISTER 1 SHOULD BE USED INSTEAD OF ♦/ 
/* REGISTER 1 ITSELF. */ 

DCL /* DESCRIPTION OF ONE OF N SETS OF ARGUMENTS */ 
1 ARG BASED(Rl), 

2 AFIRST PTR, 

2 ASECOND PTR, 

LI:/* PROCESS ONE SET OF ARGUMENTS */ 



IF ASECOND <0 THEN /* IS THIS THE FINAL ARGUMENT */ 

RETURN; /* YES */ 
Rl=Rl+8; /* SET POINTER TO NEXT SET OF ARGUMENTS */ 
GOTO LI; /* PROCESS NEXT SET OF ARGUMENTS */ 
END VPLIST; 
J 

Avoiding Parameter References 

The use of parameters in a BSL procedure is both a programming con- 
venience and a documentation aid. As with most conveniences, there is a 
cost: 

1. Register 1 must be used for all parameter references. This means 
register 1 must be saved and restored around GENERATE statements 
that generate system macros or instructions that change register 1 . 

2. The code generated to refer to a parameter is less efficient than 
the code generated to refer to a local variable. 

If you want your BSL object program to be competitive with an object 
program written in assembly language, you may wish to avoid the use of 
parameters. A good way to avoid referring to parameters is to make a 
local copy of the parameters at the start of the procedure. For 
example: 

r • 1 

|A: PR0C(P1,P2); 

DCL PI CHAR(4); 

DCL PICOPY CHA]X(4); 

DCL P2(10) CHAR (256); 

DCL P2PTR REG ((5) PTR; 

RESTRICT (6) ; 

DCL P2COPY(10) CHAR(256) BASED (P2PTR) ; 

PICOPY = PI; 

P2PTR = ADDR(P2) ; 

L J 

In this example PI is a scalar variable that is copied to PICOPY. 
Subsequent references to PI should be made by using PICOPY. 
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P2 is an array that is too large to copy, so P2C0PY is declared with 
the attributes of P2 and based on a pointer that is set to the address 
of P2. References to P2C0PY will now be references to P2. 

Setting a Return Code 

To set a return code, you place a value in register 15 before returning 
control to the caller. For example: 

X : PROC OPTIONS (DONTSAVE (15)); 

/* REG 15 IS NOT SAVED OR RESTORED */ 

DCL R15 REG(15) FIXEDOl); 

R15 = 20; /* SETS REG 15 TO VALUE OF 20 */ 

RETURN; /* RETURNS TO CALLER */ 
END; 

L J 

If another BSL procedure receives the return code, the code cannot be 
tested while it is in register 15. Since the compiler uses register 15 
to evaluate expressions, you must assign register 15 to another variable 
before anything else is done. For example: 

r 1 

I DCL RETCODE FIXED (15); 

I DCL R15 REG (15) ; 

I . 

I . 

I - 

I CALL X; 

I RETCODE = R15; 

I - 



Note: In a reentrant procedure, or whenever the TRACE option is used, 
you may not place the return code directly into register 15. Instead, 
you must place the return code in the register 15 field of the calling 
program's save area. For example: 

r 1 

JDCL R13 PTR REG(13); | 

I DCL A PTR BASED (R13+4 ) ; | 

I DCL RETCODE BASED (A+ 16); j 

I RETCODE =20; | 

L J 



Obtaining the Optimum Code 

The following paragraphs discuss various techniques that you can use to 
favorably affect the compiler-generated code. 

Putting Variables in Registers 

A good technique to use in a BSL program to improve speed and save space 
is to place certain key variables in registers. The compiler's cross- 
reference listing shows you which variables are used most often. 

If you place variables in registers, you must RESTRICT those regis- 
ters to prevent the compiler from generating conflicting register usage. 
You should also note that the RESTRICT statement does not carry into 
internal procedures. 
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When you make an assignment to a register variable, there are two 
special cases that cause the compiler to generate optimized code. This 
optimization occurs only when the statements are written in one of the 
formats described below. 

Case 1 ; The statement format is REGPTR24 = REG + CONST; where REGPTR2U 
is a register variable declared as POINTER (24), and REG is a register 
variable, and CONST is a constant less than 4096. For example: 

r 1 

JDCL R6 REG(6) PT'R(24); | 

JDCL R7 REG (7) ; | 

|R6 = R6 + 7; /* SPECIAL CASE*/ | 

|R6 = R7 + 12; /* SPECIAL CASE */ | 

L . J 

Case 2 ; The statement format is REG = EXP; where REG is a register 
variable, and EXP is an expression that contains no subscript or 
substring, and no operators other than +, -, 6, |, or £g. REG must not 
be one of the operands in the expression. For example: 

r ■ 1 

|DCL R7 REG (7) ; | 

|R7 = A + B - 3 /* SPECIAL CASE */ j 

|R7 = A + R7 - 3; /* NOT A SPECIAL CASE */ | 

iR7 = A(I) + B - 3; /* NOT A SPECIAL CASE */ | 

L J 

Eliminating Compiler-Generated Temporary Locations 

There are certain programming practices that require the compiler to 
generate extra code to move items to temporary locations. If you 

eliminate the need for these temporary locations, you can save time 
and storage space in program execution. 

When a pointer or arithmetic item is not on a proper boundary, the 
compiler generates code to move the item to a properly aligned temporary 
location, and loads it from there. To avoid this, place arithmetic 
items and pointers on their default boundaries, which are as follows: 

Attribute Best Boundary 

FIXED (15) Half word 

FIXED ( 31 ) Fullword 

PTR(16) Half word 

PTR(31) Fullword 

PTR(32) Fullword 

When character substrings are used in arithmetic expressions, the 
compiler generates code to move the item to a temporary location, and 
loads it from there. To avoid this, do not use character substrings in 
arithmetic expression. 

When a PTR(16) item is used in an arithmetic context, the pointer 
must be moved to a temporary location to avoid propagating the high- 
order bit. The arithmetic evaluation is then done from the temporary 
location. To avoid this, declare the item as PTR(15), unless you really 
need a 16-bit pointer. 

When a PTR(24) it^n is used in a arithmetic context, the pointer must 
be moved to a temporary location so that the high-order byte will not 
affect the result. The arithmetic evaluation is then done from the tem- 
porary location. To avoid this, declare the item as PTR(31), unless you 
actually use the high-order byte for some other purpose. 
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Improving Iterative DO Loops 

The compiler generates the most efficient DO loop code when you write 
your DO loops according to the guide lines presented in the following 
paragraphs . 

The control variable, the TO value, and the BY value of the DO loop 
statement should be simple variables that do not have any of the follow- 
ing attributes: 

BASED 

PARAMETER 

EXTERNAL 

Dimension (subscripted) 

If possible, the control variable should be declared in a register. 

If a DO statement is only for counting the number of iterations 
through a loop, write it as : 

r • 1 

I DO REG = EXP TO 1 BY -1; j 

I generates j 

|BCT REG, Start of loop | 

where REG is a register variable, and EXP is any expression. Note that 
if REG is set negative or zero in the loop, the iteration continues even 
though REG is less than 1. 

Location Free Code 

You can obtain location free code by avoiding BSL language that results 
in the generation of address constants. Currently, the compiler 
generates address constants for: 

• NONLOCAL EXTERNAL items. 

• POINTER items with initial values. 

• Argument lists in non- re entrant procedures. 

The only way you can eliminate address constants for NONLOCAL 
EXTERNAL items is by not using such items. 

You can eliminate address constants for POINTER items with initial 
values by not declaring the INITIAL attribute. Instead, you can ini- 
tialize the items with assignment statements. 

The only way you can eliminate address constants for argument lists 
in a non-reentrant procedure is by not using such argiiment lists. 

In addition to the elimination of address constants, you must follow 
self -relocating coding practices as described in the DOS Assembler Manu- 
al publication (Form C2U-3414). Thus, pointers kept across interrupt 
points would have to be revalidated after a possible code move. 

Data Manipulation and Reference 

The following paragraphs offer some programming techniques that you can 
use to handle data in your BSL procedure - 

Using the Same Area in Different Ways 

It is sometimes useful to refer to parts of the same storage area in 
different ways. Two methods of doing this are described below: 
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Case 1 ; You can declare the area as a structure. For example: 

r ■ ■ 

DCL 1 F FIXED (31) , 

2 L FIXED (15), 
2 R FIXED (15), 
3 * CHAR(l), 
3 B BIT (8); 

Case 2 ; You can base items on the address of a common area. This is 
similar to the EQUIVALENCE feature in FORTRAN. For example: 

r 

I DCL F FIXED ( 31 ); 

|DCL L FIXED (15) BASED (ADDR (F) ) ; 

i /* LEFT 2 BYTES OF F */ 

I DCL R FIXED (15) BASED(ADDR(F)+2) ; 

I /* RIGHT 2 BYTES OF F */ 

JDCL B BIT (8) BASED ( ADDR (F)+ 3); 

I /* TREAT LOW-ORDER BYTE OF F AS BIT 8 */ 

L J 

Scanning a String of Bits 

If you want to scan a string of bits to find the first nonzero bit, con- 
sider the method shown in the following example: 

r ■ ' 1 

I DCL FLAGS BIT (32), MASK BIT (32); 

MASK = 'TFFFFFFF'X; 

DO I = 1 TO 32; 

IF FLAGS > MASK THEN GOTO OUT; 

ELSE MASK = MASK/2; 
/* SHIFT MASK ONE BIT RIGHT TO SELECT NEXT BIT */ 

END; 

L - J 

Propagating a Character 

If you want to propagate a given character through a string, an effi- 
cient method is shown in the following example: 

r 1 

I DCL A CHAR (50); | 

I A(l) = 'Z'; /* PUTS CHARACTER Z INTO BYTE A(l) */ | 

I A(2:50) = A(l:49); /* FILLS REST OF A WITH CHARACTER Z */ | 

L J 

Setting an Area to Zero 

If you have an area which is greater than four bytes in length and a 
multiple of eight bits, you can set the entire area to zeros with the 
following technique: 

r 1 

JDCL A(10) FIXED(31); /* AREA TO BE CLEARED */ j 

I DCL B BIT (320) BASED (ADDR (A) ) ; /* DESCRIBE AREA AS A BIT STRING */ | 
I B = ''B; /* THIS CAUSES THE CONSTANT TO BE PADDED RIGHT WITH 320 BIT| 
I ZEROS. SINCE A IS EQUIVALENT TO B, A IS SET TO ZEROS */ | 
L \ J 
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Searching a Table 

Your BSL programs may frequently need to search a table to match a given 
argument, and then branch to a particular label. Two techniques for 
doing this are described below. 

Case 1 ; If the search arguments are in a small, ordered range, you may 
use the technique shown in this example: 

r— ■ 1 

/* I IS THE ARGUMENT */ 
/♦ I IS FIXED (31) */ 

/* THE VALUE OF I MAY BE 1 TO 10 */ 
DCL (L1,L2,L3,L4,L5,L6,L7,L8,L9,L10) LABEL; 

/* DECLARE BRANCH TABLE POINTS */ 
[DCL BRANT (10) PTROl) INIT (ADDR(Ll) , ADDR (L2) , ADDR(L3) , 
ADDR(L4),ADDR(L5),ADDR(L6),ADDR(L7) ,ADDR(L8) , 
ADDR ( L9 ) , ADDR (LIO ) ) ; 
GO TO BRANT(I); 
/* THIS TRANSFERS CONTROL TO THE REQUIRED POINT */ 

L , J 

Case 2 ; If the search arguments are not in a small, ordered range, you 
may use the technique shown in this example: 

r 1 

/* Q IS THE ARGUMENT ♦/ 
/* Q IS CHAR(l) */ 

/* Q CAN HAVE NINE HEX VALUES */ 
DCL Q CHAR(l) ; 
iDCL (L1,L2,L3,L4,L5,L6,L7,L8,L9) LABEL; 

/* REQUIRED BRANCH POINTS */ 
DCL 1 BTAB(9) BDY (WORD) , 

2 ARG CHAR(l) INIT( 'FS 'X, • 91'X, '29 » X, ' 33 * X, * 52 • X, ' 81 ' X, • 00 ' X, 
• CC* X, ' FF' X) , 
/* ALLOWABLE VALUES OF ARGUMENT */ 
2 BPT PTR(24) INIT(ADDR(L1) , ADDR (L2) , ADDR (L3) , 

ADDR (Lt|), ADDR (L5), ADDR (L6) ,ADDR(L7) ,ADDR(L8) , 
ADDR(L9)) ; 
/* BRANCH POINTS FOR EACH CODE */ 
DO J = 1 TO 9 BY 1; 
IF ARG(J) = Q THEN GOTO BPT(J); 

/* BRANCH TO PROPER ROUTINE */ 
END; 

/* IF YOU FALL OUT OF LOOP TO THIS POINT THEN Q DID NOT MATCH 
ANY ARG IN THE TABLE */ 
GOTO ERROR; 

L . . J 



Using the GENERATE Statement 

There are two forms of the GENERATE statement in BSL: 

• The simple GENERATE maps the contents of the GENERATE statement into 
the object margin (see GENMGIN compiler option) of the output 
assembler text starting in column 10. The simple GENERATE is 
limited to a single card. 

• The block GENERATE maps a series of cards into the object margin 
(see GENMGIN compiler option) of the output assembler text (the 
source margin specification is ignored). The end of a block 
GENERATE is indicated by a special control statement ($ENDGEN). 
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In practice, you should use the simple GENERATE to generate a single 
instruction or macro instruction; and use the block GENERATE to generate 
a number of lines of executable code or data items. Another considera- 
tion is the mapping of the output — the block GENERATE allows you to 
insert text in column one of the output; the simple GENERATE does not 
allow this. 

Note: To provide proper instruction alignment, the compiler adds a DS 
OH instruction following every simple GENERATE statement and those block 
GENERATE statements which are not of the form GENERATE DATA. 

If you include a data item in the text of a block GENERATE statement 
which is not of the form GENERATE DATA, you may need to include code to 
branch around the data item. In the GENERATE DATA statement, however, 
no branch code is necessary. 

If a variable is defined in a GENERATE statement and is referred to 
in both the GENERi^TE statements and the BSL source statements, you must 
declare the variable as GENERATED. This attribute shows the compiler 
that the named variable is defined in a GENERATE statement and, there- 
fore, need not be redefined in BSL. 

Appendix A contains a detailed listing of a program that uses 
GENERATE Statements. The form of the GENERATE statement is described in 
the BSL Language Specification manual. 

The Compile-Time Processor and the GENERATE Statement 

When the BSL compile-time processor siibstitutes a value for a compile- 
time variable, the replacement value is preceded by and followed by a 
blank. This can result in an illegal assembly language statement if the 
compile-time variable is in a GENERATE statement. The problem can be 
avoided in one of the following two ways: 

1. Stop the compile-time processor from scanning the GENERATE state- 
ment by making it look like a comment during compile-time proces- 
sing. For example: 

GEN; /* 



$ENDGEN */ 

After reading a *GEN; ■ or a ■$ENDGEN*, the BSL compiler ignores the 
remainder of the card. The compile-time processor will not make 
substitutions in a comment. Therefore, the compile-time processor 
has been stopped from changing the text of the GENERATE statement, 
without changing the way that the BSL compiler handles the GENERATE 
statement. 

2. Define the compile-time variable in such a way that blanks will be 
legal after the substitution is made. For example, if you would 
like to write: 

GEN ( L&&5Bb;L 5 , CTVBL ) ; 

and have the compile-time processor replace CTVBL by its value, 
it could be done as follows : 
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I r 

% DCL CTVBL CHAR; 

% DCL CODE CHAR; 

% CTVBL = 'ACTNAME'; 

% CODE =*L6b&&B15,* | | CTVBL; 

GEN (CODE) ; 



This will result in: 

P ^ 

I GEN (fcLBfebfcfe 15, ACTNAME ); | 

L ; J 



Program Parameterization 

Excimple 1 shows a sample BSL program to read a card and then print it» 
The program could have been written to allow either the input, card buff- 
er (INSZ) or the output line buffer (OUTSZ) to be any length for a given 
run. The program could also have been written to allow source text from 
a library to be included at points within the source program during com- 
pilation. And the program could have been written to determine how many 
input records could fit on an output line, and compile only the code to 
print that number of records. 

The sample program should have been parameterized (generalized) when 
first written by using compile-time macro facilities to do all these 
things. This would provide a more flexible, functional program. The 
program could be used as an application with many different values, 
rather than only once as it stands in its original form. 

Remember, this generalizing takes place at compi le-t ime , not at 
object time. In the one compilation, two distinct phases occur. These 
are: 

• MACRO PHASE: The compile-time processor modifies the source text 
according to user instructions. 

• COMPILE PHASE: The compiler translates the modified source text 
into assembler text- 

Using the sample program in Example 1 as a base, inserts can be added 
to generalize the program. (The place for each insert is noted by 
shading. ) 
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Example 



BSL Program to Read a Card and Print It 



BSI /lO' DEf,68| 



©) 



:i(D) 



/Ji<***:;(>i<*j(c***))<*sH ****** J***********************************************/ 
/* */ 

/*TITLF: MAIN - SAMPLE DOCUMENTED BSL PROGRAM */ 

/* */ 

/*function: to read a card and then print it out */ 

/* */ 

/*ENTRY: MAIN. ONLY ENTRY POINT */ 

/* */ 

/* . . . */ 

/* */ 

/****>>:*** >!c****>!<*>lc*!{<!)!*:j<ij<>lii(c***!)<*!(c*>lt***>i<* *********************** *******/ 



PAGE 001 



MAIN: 



0006 

0007 
OQ.08 
0009 
0010 
0011 
0012 
0013 
0014 



OOl^i 

ecu 

0017 
OOlfi 
0019 
00?0 



PROCEDURE; 

DECLARE /*VARIABLE DATA ITEMS FOR THIS PROCEDURE*/ 
/*I/0 BUFFER AREAS*/ 

:'"■"• "TffiETBOTOD »■. /*tNPur card BUF^i^ER*/' - 

:-*_^-:«^j^ X.^^Q21 .» , /■♦OUTPUT LINF BUFFER*/ 

'/*RETUR'N CODE VAP.IABLE*/ 

CODE FIXEDOl); /*CODE SET BY RET*/ 

DECLARE /*ROUTINES CALLED*/ 

RET ENTRY, /*READS IN A CARD*/ 

PRINT ENTRY; /*PRINTS A LINE*/ 



/*OBTAIN AN INPUT CARD*/ 

CALL RET( BUF,CnDE) ; /*GET A CARD, AND SET CODE: 

=0, NORMAL READ 
=1, END OF FILE 
=2, ERROR */ 

/*CHECK CODE FOR VALIDITY*/ 
IF CODE=0 THEN /*VALID INPUT*/ 

/*PRINT OUT THIS CARD AND KEEP GOING*/ 
DO; 

/*SET FOR SINGLE SPACING*/ 

/*OuTpUT' THE CARD*/ 

/*CONTINUE WITH THE NEXT CARD*/ 



OUT(l)=' •: 

CALL PRINT( OUT) ; 

GO TO ORTAI N; 

END; 
ELSE IF C0DE=1 THEN 

RETURN; 
FLSF 



/*N0 MORE INPUT*/ 

/*RETUPN TO CALLING PROGRAM*/ 

/*ERROR SITUATION*/ 

/*NOTE THE ERROR ON THE PRINT FILE*/ 

DO; 

OUT=' «; /*RLANK THE OUTPUT LINE*/ 

CALL PRINTin'uf) ; /*C)UTPUt THE ERROR INDICATION*/ 

RETURN: /*RETURN TO CALLING PROGRAM*/ 

END; 

ND MAIN; /*END OF THE PROCEDURE*/ 
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Insert A 

% DECLARE 

INSZ FIXED, 
OUTSZ FIXED, 
LECOL FIXED, 
RECOL FIXED, 

% INSZ=80; 
% 0UTSZ=121; 
% REC0L=INSZ+5 ; 
LEC0L=REC0L-4 



Insert B 

BUF CHAR (INSZ), 
OUT CHAR (OUTSZ), 



Insert C 
OUT(2:OUTSZ)=BUF; 

Insert D 

OUT ( LECOL : RECOL ) = • ERROR • ; 



/* COMPILE TIME VARIABLES */ 
/* INPUT BUFFER SIZE */ 
/* OUTPUT BUFFER SIZE */ 
/* LEFT ERROR COLUMN */ 
/* RIGHT ERROR COLUMN */ 



/* SET LEFT ERROR COLUMN */; 



/* INPUT CARD BUFFER */ 
/* OUTPUT LINE BUFFER */ 



/* MOVE CARD TO OUTPUT LINE */ 



/* INDICATE AN ERROR OCCURRED */ 



Changing Buffer Sizes 

The inserts A, B, C, and D generalize the buffer sizes as well as the 
position where the word 'ERROR' will appear in the output line. 

Insert A comes immediately after the compiler control statement con- 
taining the MACRO option. This insert does several things: 

• The DECLARE stat^nents symbolically name the general items - buffer 
lengths, right and left error column indicators. 

• The assignment statements give numerical values to the buffer 
lengths and the right and left error column indicators. 

Inserts B, C, and D replace the original numerical values with vari- 
able names. Example 2, a macro source listing, illustrates the place- 
ment of the inserts. 

The resulting program is of far greater value than the original. 
This generalized program may be used for this application a number of 
times with different numerical values for buffer lengths. 
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Example 2. BSL Macro Source Listing (Changing Buffer Sizes) 











MACRO SOURCE LISTING 


PAGE 1 


C: 




1 


iASSEM 














2 


$AMN0TATF=2 












3 


? 


DECLARE /*COMPILE TIME 


VARIABLES*/ 










4 




INSZ FIXED, 


/*INPUT BUFFER SIZE*/ 










5 




OUTSZ FIXED, 


/*OUTPUT BUFFER SIZE*/ 










6 




LECOL FIXED, 


/*LEFT ERROR COLUMN*/ 










7 




RECOL FIXED 


/*RIGHT ERROR COLUMN*/ 










8 
9 


2 


INSZ=80: 












10 


% 


0UTSZ=121; 












11 


f 


REC0L=INSZ+5; 


?/*SET FOR ERROR POSITION PAST*/ 










12 






/*NORMAL CARD POSITIONS*/; 










13 


% 


LEC0L=REC0L-4; 


/*SET LEFT ERROR COLUMN*/ 










14 


z***************************************** ****************** ********/ 








15 


/* 






*/ 








16 


/*TITLE 


MAIN - SAMPLE DOCUMENTED BSL PROGRAM 


*/ 








17 


/* 






*/ 




-^ 




18 


/♦FUNCTION: TO READ A CARD AND THEN PRINT IT OUT 


*/ 








19 


/* 






*/ 








20 


/*ENTRY 


MAIN. ONLY ENTRY 


POINT 


*/ 




( 




21 


/* 






*/ 








22 


/* 






*/ 








23 


/* 






*/ 




r 




24 


/***«**♦**>!<******«*«************************************************/ 








25 


MAIN: 


PROCEDURE; 








r 




26 
27 




DECLARE /*VARIABLE DATA ITEMS FOR THIS PROCEDURE*/ 










2R 




/*I/0 BUFFER AREAS*/ 










29 




BUF CHAR(INSZ) , 


/*INPUT CARD BUFFER*/ 






,- 




30 




OUT CHAR(OUTSZ), 


/*OUTPUT LINE BUFFER*/ 










31 




/*RETURN CODE VARIABLE*/ 










32 




CODE FIXED(31) ; 


/*CODE SET BY RET*/ 






(' 




33 




DECLARE /*ROUTINES CALLED*/ 










34 




RET ENTRY, 


/*READS IN A CARD*/ 










35 




PRINT ENTRY; 


/♦PRINTS A LINE*/ 






( 




36 














37 


OBTAIN: 


/*QBTAIN AN INPUT CARD*/ 










38 




CALL RET(BUF ,CODE) ; 


i/*GET A CARD, AND SET CODE: 






( 




39 






=0, NORMAL READ 








40 






=1, END OF FILE 










41 






=2, ERROR */ 






C : 




42 




/*CHECK CODE FOR VALIDITY*/ 










43 




IF CODE=0 THEN 


■/*VALID INPUT*/ 










44 




/*PRINT OUT THIS CARD AND KEEP GOING*/ 






( 




45 




DO; 












46 




0UT(1') = ' ': 


/*SET FOR SINGLE SPACING*/ 










47 




0UT(2:0UTSZ)=BUF; 


/*MOVE CARD TO OUTPUT LINE*/ 






( 




48 




CALL PRINT(OUT) ; 


/♦OUTPUT THE CARD*/ 










49 




GO TO OBTAIN; 


/*CONTINUE WITH THE NEXT CARD*/ 










50 




END; 








( 




51 




ELSE IF C0DE=1 THEN 


/*N€ MORE INPUT*/ 










52 




RETURN; 


/*RETURN TO CALLING PROGRAM*/ 










53 




ELSE 


/*ERROR SITUATION*/ 






( : 




54 




/*NOTF THE ERROR ON THE PRINT FILE*/ 










55 
58 




DO; 






-' 




^^^^^&^l3ll0t^^ 


";'*^*ii;iiM' TH£ "cwTFcrrciNt*? 




fM«^'"/*|Nt)ICATi: AN iKlOR DlltrRRE0*7 






, 


CALL PRINT(OUT) ;" 


/*OUTPUT THE ERROR INDICATION*/ 






59 




RETURN; 


/*RETURN TO CALLING PROGRAM*/ 










60 




END; 












61 
















62 




END MAIN; 


/*END OF THE PROCEDURE*/ 






, 


NO ERROR OR WARNING 


CONDITION HAS BEEN DETECTED FOR 


THIS MACRO PASS. 
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Including Text From A Library 



It is possible that an error could result from the generalizing of RECOL 
and LECOL. If OUTSZ is less than either RECOL or LECOL, or both, the 
word 'ERROR' would not be placed in the output line. To avoid this pos- 
sibility, and to further generalize the sample program, source text from 
an external library (Figure 13) could be added during compilation. 



Direct Access 




Figure 13. Source Text From an External Library 

Insert E will replace the two instructions of the sample program 
( both the OUT='b'; and the OUT (LECOL: RECOL) =' ERROR ' ; statements in 
Example 2) . 



j Insert E 

I 

|%IF RECOL<= OUTSZ % THEN 

I % INCLUDE MACROEX( NORMAL) 

I %ELSE 

I %INCLUDE MACROEX( SHORT) 



/* IS RECOL IN RANGE OF OUTPUT LINE */ 
/* YES */; 

/* NO ♦/; 



One of the two paths will be taken at compile time, depending upon 
the values of RECOL and OUTSZ. One of two sets of data will be included 
in the program. Example 3 shows a macro source listing that adds source 
text from MACROEX( NORMAL) . 
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• Example 3. BSL Macro Source Listing (Including Text) 



c 






MACRO SOURCE LISTING PAGE 1 




I 


$ASSEM 






2 


$ANN0TATE=2 | 




3 


% 


DECLARE /*COMPILE TIME VARIABLES*/ 




4 




INSZ FIXED, /*INPUT BUFFER SIZE*/ 




5 




OUTSZ FIXED, /*OUTPUT BUFFER SIZE*/ 


( 


6 




LECOL FIXED, /*LEFT ERROR COLUMN*/ 




7 
8 
9 




RECOL FIXED /*RIGHT ERROR COLUMN*/ 


( 


% 


: 

INSZ=80; 




10 


X 


nUTSZ=12l! 




11 


% 


REC0L = INSZ + 5 : %/*SET FOR ERROR POSITION PAST*/ 


i 


12 




/*NORMAL CARD POSITIONS*/; 




13 


% 


LEC0L=REC0L-4 /*SET LEFT ERROR COLUMN*/; 




14 


/****«*>!!**«**«**♦*** !«*****«:X*****«!X»C**:jC* !«****)(<>«.« ***«**!i<!J<**>i<**!(C*>«***>l./ | 




15 


/* 


*/ 




16 


/*TITLE 


: MAIN - SAMPLE DOCUMENTED BSL PROGRAM */ 




17 


y* 


*/ 




18 


/•FUNCTION: TO READ A CARD AND THEN PRINT IT OUT */ | 




19 


/* 


*/ 




20 


/*ENTRY 


: MAIN. ONLY ENTRY POINT */ 




?1 


,/* 


*/ 




22 


/* 


*/ 




23 


/* 


*/ 




24 


/!)!!(C!J<«*J^«:j<* «*«*******«**************************************>!< ********/ 1 




25 
26 
27 


MAIN: 


PROCEDURE; 






DECLARE /*VARIABLE DATA ITEMS FOR THIS PROCEDURE*/ 




28 




/*I/0 BUFFER AREAS*/ 




29 




BUF CHAR(INSZ), /*INPUT CARD BUFFER*/ 




30 




OUT CHAR(OUTSZ), /*OUTPUT LINE BUFFER*/ 




31 




/*RETURN CODE VARIABLE*/ 






J^:r^:^:St^«yk"IMM3irc:jL:£*cwE.S£T 8Y ftrr*/- -- -- ~ . ^.----^ 




' - " ^^ 33 




DECLARE /*ROUTINES CALLED*/ 




34 




RET ENTRY, /*READS IN A CARD*/ 




35 
36 
37 




PRINT ENTRY; /*PRINTS A LINE*/ 




OBTAIN: 


/*OBTAIN AN INPUT CARD*/ 




38 




CALL RET(BUF,CODE) ; /*GET A CARD, AND SET CODE: 


i 


39 




=0, NORMAL READ 




40 




=1, END OF FILE 




41 




=2, ERROR */ 




42 




/*CHECK CODE FOR VALIDITY*/ 




43 




IF CODE=0 .THEN /*VALID .INPUT*/ 




44 




/*PRINT OUT THIS CARD AND KEEP GOING*/ 




45 




DO; 




^ ^^ 




0UT(1)=' '; /*SET FOR SINGLE SPACING*/ 




Hea(G)Ki^|E:, 




g^^tlfCirrg^njpryy;":;: -y^ggt carbto output line*/ • ' 




C^iS5SS\2^ 


f ■ 


CALL PRINT(OUT); /*OUTPUt THE CARD*/ 




49 




GO TO OBTAIN; /*CONTINUE WITH THE NEXT CARD*/ 




50 




END; 


( ', 


51 




ELSE IF C0DE=1 THEN /*N0 MORE INPUT*/ 




5? 




RETURN: /*RETURN TO CALLING PROGRAM*/ 




53 




ELSE /*ERROR SITUATION*/ 


() 


54 




/*NOTE THE ERROR ON THE PRINT FILE*/ 




55 




DO; 




56 


% 


IF RECOL <= OUTSZ «THEN /*IS RECOL IN RANGE OF OUTPUT LINE*/ 




57 


% 


INCLUDE MACROEX(NGRMAL) /*YES*/; 




58 




OUT = • '; " /*SET CARRIAGE CONTROL TO BLANK*/ 




59 




OUT(LECOL:RECOL) = "ERROR*; 






END OF NORMAL | 




6b 


X 


ELSE 




61 


% 


INCLUDE MACROEX(SHORT) /*N0*/; 




62 




CALL PRINT(0UT1: /*OUTPUT THE ERROR INDICATION*/ 




63 




RETURN; /*RETURN TO CALLING PROGRAM*/ 




64 




END; 




65 








66 




END MAIN; /*END OF THE PROCEDURE*/ 




NO ERROR OR WARNING 


CONDITION HAS BEEN DETECTED FOR THIS MACRO PASS. 



Section 7: BSL Programming Techniques 95 



IBM Confidential 



Altering the Source Code 

To determine the number of input records that would fit on an output 
line for any given run, and to compile only the code to print that num- 
ber of records, two changes to the program, as shown in Example 3, are 
needed. (Note the places for changes are indicated in Example 3.) 



Insert F 

CODE FIXED (31), 

I FIXED (31) INIT (2); 

Insert G 

OUT(I:I+INSZ)=BUF; 



/♦ CODE SET BY RET */ 

/* INDEX TO OUTPUT LINE */ 



/* MOVE ONE CARD TO OUTPUT LINE */ 



%IF OUTSZ <=INSZ*2 % THEN /* WILL 2 CARDS FIT IN OUTPUT LINE */ 



i GOTO ONECARD; 

IF 1=2 THEN 

DO; 

I=I+INSZ; 

GOTO OBTAIN; 

END; 
ELSE 

1=2; 



/* NO. OMIT CODE TO PROCESS 2ND CARD */ 
/* IS THIS THE FIRST CARD IN LINE */ 
/* YES. PREPARE TO PROCESS 2ND CARD */ 
/* SET INDEX FOR 2ND CARD IN LINE */ 
/♦ READ ANOTHER CARD */ 

/* 2ND CARD HAS BEEN PROCESSED */ 
/* SET INDEX TO START OF OUTPUT */ 



5S0NECARD! 



/* COMPILE TIME BRANCH POINT FOR ONLY 1 CARD PER LINE */ 



Insert F initializes the variable I. Insert G moves data from one 
input card to the output buffer. The compile-time statements determine 
if data from two input cards can fit into the output buffer. One of two 
branches is taken as a result of the determination. Example 4 shows the 
macro source listing at compile-time, and indicates an altered input 
line. 
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• Exampxe 4. BSL Macro Soiorce Listing (Altering Source Code) 









MACRO SOURCE LISTING PAGE 


1 




1 


JASSEM 










2 


$ANN0TATF=2 








3 


% 


DECLARE /*COMPILE TIME VARIABLES*/ 






4 




INSZ FIXED. 


/*INPUT BUFFER SIZE*/ 






5 




OUTSZ FIXED, 


/*OUTPUT BUFFER SIZE*/ 






6 




LECOL FIXED, 


/*LEFT ERROR COLUMN*/ 






7 
8 
9 




RECOL FIXED 


/*RIGHT ERROR COLUMN*/ 






S 


INSZ=80; 








10 


« 


0UTSZ=121: 








11 


X 


RFC0L=INSZ+5 ; 


%/*SET FOR ERROR POSITION PAST*/ 






12 






/*NORMAL CARD POSITIONS*/: 






13 


% 


LEC0L=REC0L-4 


/*SET LEFT ERROR COLUMN*/; 






14 


/*«:((*«****«*«♦«« **>)!««!(<*«* **«**>(!«*******>!<******** J*:*******************/ 






15 


/* 




*/ 






16 


/*TITLF 


MAIN - SAMPLE DOCUMENTED BSL PROGRAM */ 






17 


/* 




*/ 






18 


/«FUNCTIQN: TO READ A CARD AND 


THEN PRINT IT OUT */ 






19 


/* 




*/ 






20 


/*FNTRY 


MAIN. ONLY ENTRY POINT */ 






21 


/* 




*/ 






22 


/* 




*/ 






23 


/* 




*/ 






24 


/ >(<>!< !(<*:♦*!(■«*:*«** Ill !(<*!(< j)cjf< >(!!)<:«<***>(.**«************ «:*[** «**«*« ********♦*******/ 






25 
26 
27 


MAIN: 


PROCEDURE: 










DECLARE /*VARIABLE DATA ITEMS FOR THIS PROCEDURE*/ 






2 8 




/*I/0 BUFFER AREAS*/ 






29 




BUF CHAR(INSZ) . 


/*INPUT CARD BUFFER*/ 






30 




OUT CHAR(OUTSZ) , 


/*OUTPUT LINE BUFFER*/ 






31 




/^RETURN CODE VARIABLE*/ 






3? 




CODE FIXEDOl) , 


/*CODE SET BY RET*/ 






33 




I FIXEDOl) INIT(2) 


:/*INDEX TO OUTPUT LINE*/ 






34 




DECLARE /*ROUTINES CALLED*/ 






35 




RET ENTRY, 


/*READS IN A CARD*/ 






36 
37 
38 




PRINT ENTRY; 


/*PRINTS A LINE*/ 






OBTAIN: 


/*OBTAIN AN INPUT CARD*/ 








39 




CALL RET(BUF,CODE) : 


/*GET A CARD, AND SET CODE: 






40 






=0, NORMAL READ 






41 






=1, END OF FILE 






42 






=2, ERROR */ 






43 




/*CHtCK CODE FOR VALIDITY*/ 






44 




IF CODE=0 THEN 


/*VALID INPUT*/ 






45 




/*PRINT OUT THIS CARD AND KEEP GOING*/ 






46 




DO: 








47 




0UT(1)=' ': 


/*SET FOR SINGLE SPACING*/ 






48 




OUT( I:I + INSZ.I=BUF: 


/*MOVE ONE CARD TO OUTPUT LINE*/ 






49 


% 


IF OUTSZ <= INSZ*2 «THEN /*WILL 2 CARDS FIT IN OUTPUT LINE*/ 






50 


X 


GOTO ONECARD; 


/*NO.OMIT CODE TO PROCESS 2ND CARD*/ 






51 




IF 1=2 THEN 


/*IS THIS THE 1ST CARD ;IN LINE*/ 






52 




DO: 


/*YES. PREPARE TO PROCESS 2ND CARD*/ 






53 




I = I + INSZ ; 


/*SET INDEX FOR 2ND CARD IN LINE*/ 






54 




GOTO OBTAIN: 


/*READ ANOTHER CARD*/ 






55 




END: 








56 




ELSE 


/*2ND CARD HAS BEEN PROCESSED*/ 






57 




1 = 2: 


/*SET INDEX TO START OF OUTPUT*/ 






58 


XONECARD 


; /* COMPILE-TIME BRANCH 


POINT FOR ONLY 1 CARD PER LINE*/ 






59 




CALL PRINT(OUT) : 


/*OUTPUT THE CARD*/ 






60 




GO TO OBTAIN: 


/*CONTINUE WITH THE NEXT CARD*/ 






61 




END: 








62 




ELSE IF C0DE=1 THEN 


/*N0 MORE INPUT*/ 






63 




RETURN; 


/*RETURN TO CALLING PROGRAM*/ 






64 




ELSE 


/*ERROR SITUATION*/ 






65 




/*NOTE THE ERROR ON THE 


PRINT FILE*/ 






66 




DO: 








67 


S! 


IF RECOL <= OUTSZ XTHEN 


/*IS RECOL IN RANGE OF OUTPUT LINE*/ 






68 


X 


INCLUDE MACROEX(NORMAL) 


/*YES*/; 






69 




OUT = « <: 


/*SET CARRIAGE CONTROL TO BLANK*/ 






70 




OUT(LECOL:RECOL) = 'ERROR': 








END OF NORMAL 








71 


? 


ELSE 








72 


% 


INCLUDE MACROEX(SHORT) 


/*N0*/: 






73 




CALL PRINT(OUT) : 


/*OUTPUT THE ERROR INDICATION*/ 






74 




RETURN; 


/*RETURN TO CALLING PROGRAM*/ 






75 




END: 








76 




END MAIN: 


/*END OF THE PROCEDURE*/ 




NQ FRROR OR WARNING 


CONDITION HAS BEEN DETECTED FOR THIS MACRO PASS. 
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Appendix A: Example of Program Using BSL 
GENERATE Statements 



I Example 5 shows a BSL program which uses both forms of the GENERATE 
statement. The program reads a card into an area called BUF. 

Of special interest to OS users is the reference to the OFLAGS field 
of the DCB, which appears in a block GENERATE, You should also note 
that CARDIN, the DCB, is declared as GENERATED. 



• Example 5, Use of the GENERATE Statements (Part 1 of 10) 

RSL/ELfVEN MAY69 DRIVER FOR PROGRAM TO DEMCNSTRATE GENERATE PAGE 001 

/* */ 

/♦ THIS PROCEDURE CALLS ANCTHER BSL PROCEDURE TO READ A CARD INTO AN*/ 

/♦AREA CALLED BLF, MOVES IT TC AN ARfA CALLEC CUT, AND CALLS A */ 

/♦ROUTINE FROM THE BSL LIBRARY TO PRINT IT. */ 

/* ♦/ 

/i^cit^^^ltOit*************'********** ♦♦***♦«♦«♦♦♦*+♦* *♦***♦«*♦*«***♦«*♦♦*♦«/ 

erivfr: /*entry point*/ 
PPOC; 

0002 DCL BLF CHAR(80) LOCAL EXTERNAL; /♦INPUT AREA*/ 

0003 DCL CUT CHAR(121); /*CUTPUT AREA*/ 

000^ nCL CODE NONLOCAL EXTERNAL; /*CODE SET BY GETCO*/ 

0005 

CALL GETCD: /♦READ 1 CARD*/ 

0006 /*TEST CODE FCR SUCCESSFUL READ*/ 

IF CODE-.= THEN /*READ NOT SUCCESSFUL^/ 

0007 RETURN; /♦RETURN TO CALLING PROC^/ 
0006 /*READ ViAS SUCCESSFUL*/ 

nLT(l)='l'; /♦SET CARRIAGE CONTROL*/ 

OOOS OLT(2:121)=BUF; /*PUT BUF IN PRINT LINE*/ 

0010 CALL PRINT(BUF); /*PPINT 1 LINE*/ 

0011 END DRIVER; /*RETURN TO CALLING PROC- 

END CF DRIVER^/ 
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•Example 5. Use of the GENERATE Statements (Part 2 of 10) 

BSL/ELEVF^ Hli\b<) DRIVER FOR PROGRAM TO DECCNSTRATE GENERATE PAGE 002 

Cr.L'D IN NAME ATTRIBUTE ANC CROSS REFERENCE TABLE 

? BUF STATIC. LOCAL, CHARACTER ( 80 I , EXTERNAL, BOUNDARY ( BYT E, 1) 

■5, 10 

i, CODE STATIC. NCNLCCAL, FIXECOl), EXTERNAL, BOUNDARY! WORD , 1 ) 

6 

1 DRIVER STATIC. LOCAL. ENTRY, EXTERNAL 

1. 11 

■5 GETCD STATIC, NONLCCAL. ENTRY, EXTERNAL 

3 OUT STATIC. LOCAL. CHARACTER ( 12 1 ) , INTERNAL, BCUNCARY ( BYTE, 1 ) 

8, 9 

10 PRINT STATIC, NONLCCAL, ENTRY, EXTERNAL 

10, 11 

*** PROf. . DRIVER HAD NO ERRORS 
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Example 5. Use of the GENERATE Statements (Part 3 of 10) 



LCC DBJFCT CODF ADORl ADDR2 STMT SOURCE STATEMENT 



ICTL 01i71,16 



»**«**♦**♦*+*+*****♦**♦*«*****♦*♦*****»**** 



000000 

000000 90FC DOor, 

C00004 05B0 

000006 

OC0006 

000006 50nO R066 

OOOOOA 41F0 B06? 

OOOOOE 50F0 D008 

000012 IfiCF 



OOOOIA IPFF 

nOOOlC 5810 RC56 

000020 59F0 1000 

000024 4770 R046 



000028 92F1 RQFA 00100 

00002r, D24F BOFR BOAA 00101 OOOBO 

0000^2 9240 R14B 00151 

000036 0226 R14C R14B 00152 0C151 

00003r. 41 EO B046 00040 

OC0040 0700 

000042 "SBFO R05A 00060 

000046 051F 

000048 OOOOOOBO 

00004C 



00004r. 58D0 D004 

000050 98EC COOf. 

000054 07FE 
000056 



/* THIS PROCEDURE CALLS ANCTHER ESL PROCEDURE TO READ A CARD INTO AN* 
/♦AREA CALLED BUF. MOVES IT TO AN AREA CALLED OUT, AND CALLS A * 
/♦ROUTINE FROM THE BSL LIBRARY TO PRINT IT. * 

/♦ * 

!<**♦*♦*»*«*♦♦********** 



0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 





8 


♦ 


/****♦******: 


(,**♦*****♦*♦***♦*♦***«♦♦♦*♦♦♦; 




9 


* 


driver: 


/♦ENTRY PGINT+/ 




10 


* 




PROC 






11 






LCLA 


'&T.GSPN 




12 




aooi 


ANOP 






13 


DRIVER 


CSECT 


, 


ooooc 


14 






STM 


9E,ac,i2(aD) 




15 






BALR 


3IB.0 




16 


aPS.TART 


DS 


OH 




17 






USING 


3PSTART+00000,aB 


0C06C 


18 






ST 


ai)D.3SAV001+4 


0C068 


19 






LA 


SF.asAvooi 


00008 


20 






ST 


3F,8(0,aD) 




21 






LR 


3D,aF 




22 


* 




DCL 


BUF CHAR(80) LOCAL EXTERNAL 




23 


* 




DCL 


OUT CHAR(121) i 




24 


♦ 




DCL 


CODE NONLOCAL EXTERNAL; 



/♦INPUT AREA^/ 
/♦OUTPUT AREA+/ 
/♦CODE SET BY GETCD* 



/♦READ 1 CARD^/ 
ADDRESS OF GETCD 



0005 
0005 



CALL GETCD; 

L aF.avi 
BALR aE,aF 

/♦TEST CODE FOR SUCCESSFUL READ+/ 

IF CODE-.=0 THEN /*READ NOT SUCCESSFUL^/ 

SR aF.aF 0006 

L ai,SA2 ADDRESS OF CODE 0006 

C aF.OIO.ai) 0006 

RETURN; /♦RETURN TO CALLING PROC*/ 

BC 07,aEL01 0007 

/♦READ WAS SUCCESSFUL*/ 

OUT(l)='l'; /♦SET CARRIAGE CONTROL^/ 

MVI tJIUT.C'l' 0008 

0UT(2! 121)=BUF; /*PUT BUF IN PRINT LINE^/ 



MVC OUT+1(80).BUF 

MVI 0UT+81,C< • 

yVC 0UT+82(39) .OUT+81 

CALL PRINT(BUF); 

LA aE.aCL9FE 

CNOP 2.4 

L 3F,aV3 

EALR ai.SF 



ADDRESS OF PRINT 



DC 



A(BUF) 



49 aCL9FE 





50 


♦ 


END 


DRIVER; 




51 


* 






00004 


52 


aELOl 


L 


aD.4(0.aD) 


OOOOC 


53 




LM 


aE,3c.i2(ac) 




54 




BCR 


15. aE 




55 


aOATAl 


ECU 


* 



0009 
0009 
0009 
PRINT 1 LINE^/ 

0010 
0010 
0010 
0010 
0010 
0010 
/♦RETURN TO CALLING PROC- 
END OF DRIVER*/ 

0011 
0011 
0011 



00000 
00010 
00020 
00030 
00040 
00050 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
00440 
00450 
00460 
00470 
00480 
00490 
00500 
00510 
00520 
00530 
00540 
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Example 5. Use of the GENERATE Statements (Part 4 of 10) 



LTC 


nRJFCT CDOE ADORl ADDR2 STMT 


SOURCE 


STATE. 


MENT 


coonoo 




56 


SO 


EOU 


00 


ooooni 




57 


(51 


EOlJ 


01 


000002 




58 


32 


EOU 


02 


000003 




59 


as 


ECU 


03 


000004 




60 


S)4 


EOU 


04 


000005 




61 


as 


EOU 


05 


000006 




62 


a6 


EOU 


06 


000007 




63 


a7 


EOU 


07 


C00008 




64 


a8 


EOl) 


08 


cooooq 




65 


a9 


EQU 


09 


roooos 




66 


a« 


EOU 


10 


OOOOOfl 




67 


sie 


EOU 


11 


ooooor 




68 


SIC 


EOU 


12 


OOOOOD 




69 


510 


EOU 


13 


OOOOOE 




70 


BE 


EOU 


14 


nooooF 




71 


ap 


EOU 


15 


OOOCSb 


0000 










00005P 


oocooooo 


72 


avi 


CC 


VIGETCOI 


ooocir. 


oocooooo 


73 


a«2 


DC 


A(CODE) 


000060 


00000000 


74 


fflV3 


DC 


V(PRINT) 


000064 




75 




OS 


OF 


OOOOfiB 




76 




OS 


00 


OOOOfcS 




77 


aCATA 


EOU 


* 


000068 




78 


asAvooi 


EOU 


aOATA+00000000 






79 




ENTRY 


BUF 


OOOOBO 




80 


BUF 


EOU 


aOATA+00000072 


C00100 




81 


OUT 


EOU 


aDATA+00000152 






82 




EXTRN 


CODE 


000068 




8 3' 




OS 


00000273C 


00017C 




84 


STEMPS 


CS 


OF 


00017C 




85 


fflCATENO 


EOU 


* 


onoooo 




86 




END 


DRIVER 



EOUAIES FOR REGISTERS 0-15 



72 eYTE(S) ON WORD 



80 BYTE(S) 
121 BYTE(S) 



00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 
00680 
0069-0 
00700 

00710 
00720 
00730 
00740 
00750 
00760 
00770 
00780 
00790 
00800 
00810 
00820 
00830 
00840 
0085C 
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•Example 5. Use of the GENERATE Statements (Part 5 of 10) 

BSL/FLFVEM MAY69 PRORRAM TO DEMCNSTRATE THE GENERATE STATEMENT PAGE 001 

0001 /***********«**i» ********** It ******************************* ***********/ 
/* */ 

/* THIS PROCEDURE USES CONTROL PRCGRAf SERVICES TO DEFINE A DCB, */ 

/*OPFN IT, AND READ A RECCRC. */ 

/* */ 

/**************♦***♦*****************;********************************/ 

RETCD: /*ENTRY PCINT*/ 

PROC; 
000? DCL CARDIN CHARIqZ) GENERATED; /*DCB*/ 

0003 DCL BUF CHAR(80) NONLCCAL! /*INPUT BUFFER*/ 

0004 DCL CODE LOCAL EXTERNAL; /*SET TO INDICATE I/O 

ERROR*/ 

0005 DCL CFLAGS BIT(8) BASED( ADDR ( CARD IN 1 +48 ) ! /*OPEN FLAGS IN 

DCB*/ 

0006 DCL RO PEG(O) PTROl); /*POINTER TO INPUT 

BUFFER*/ 

0007 DCL TTRTPTR REGIT) PTROl); /*PTR TO INPUT BUFFER 

FOR TRT SCAN*/ 

0008 RESTRICT(TRTPTR) ; /*RESTRICT COMPILER USE*/ 

0009 GENERATE DATA; /*GENERATE DCE AND TRT TABLE*/ 

CARDIN DCB DSORG=PS , MACRF= ( GM) . CDNAME=BS L I N, CPTCD= C , RECFM= F, X 
LRECL=a0,BLKSIZE=80,BFTEK=S,BFALN=F,EODAD=ENDFILE, X 
BUFN0=3.SYNAC=ICeRRnR.ERDPT=ACC 
TRTTAB DC 54X<FF" 

DC X'OO' ONLY NCN-ZERO FUNCTION BYTE = BLANK 

DC 191X'FF' 
JFNDGFN 
0010 

GEN(OPEN (CARDIN, ( INPUT, REREAD) )) ; /*OPEN DCB*/ 
0011 /*TEST FOR SUCCESSFUL OPEN*/ 

IF 0FLAGS(4)='0'B THEN /*CPEN FAILED*/ 

001? /*UPCN FAILURE TO OPEN, SET A CCDE AND RETURN*/ 

DO! 

0013 C0UE=3: /*SET OPEN FAILURE CODE*/ 

0014 RETURN; /*RETURN TO CALLING PROC*/ 

0015 END; 

0016 GFTNFXT: RO=ADDR ( BUF ) ; /*SET PTR TO INPUT 

BUFFER*/ 

0017 GENCGET CARDIN. (0)): /*READ A RECORD*/ 

0018 TRTPTR=ADDR(BUF) ; /*SET PTR TO EXECUTE TRT*/ 



0019 GENERATE; 



0(80,7) , TRTTAB IS THIS CARD BLANK 
8,GETNEXT YES, GET NEXT CARD 



tENDGFN 
0020 CODE==0; /*SET SUCCESSFUL READ*/ 

00?1 RETURN; /*RETURN TO CALLING PROC*/ 

0022 ENDFILF: /*0N END OF FILE*/ 

COOE==l: /*SET END OF FILE CODE*/ 

RETURN; /*RETURN TO CALLING PROC*/ 

/*IF AN I/C ERRCR OCCURS*/ 
C0DE==2; /*SET CODE FOR READ 

ERROR*/ 
return; /*RETURN to CALLING PROC*/ 

END RETCO; /*END OF GETCD PROC*/ 
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•Example 5. Use of the GENERATE Statements (Part 6 of 10) 

BSI/EIEVFM MAYe9 PROGRAM TO DEMCNSTRATE THE GENERATE STATEMENT PAGE 002 

CCL'C IN NAME ATTRIBUTE ANC CROSS REFERENCE TABLE 

■^ BUF STATIC. NONLOCAL, CH AP ACT ER( 80 ) , EXTERNAL, BOUNDARY( BYTE, 1 ) 

16, 18 

? CARDIN GENERATED, CHARACTER ( 92 ) , BOUNCARY ( BYTE , 1 ) 

5 

A CrOE STATIC, LOCAL, FIXEOOll, EXTERNAL, BCUNDAPY ( WORD, 1 ) 

13, 20, 22, 2^1 

22 ENCFILE STATIC, LOCAL, LABEL, INTERNAL 

27 

1 GETCC STATIC, LOCAL, ENTRY, EXTERNAL 

1, ?t 

16 GETNFXT ST AT IC , LOCAL , LABEL, INTERNAL 

16 

24 lOERROR STATIC, LOCAL, LABEL, INTERNAL 

?A 

5 OFLAGS BASED ON ADDR ( CARD IN ) +48 , BIT(8), BOUNDARY ( BYTE, 1 ) 

11 

6 RO REGISTEP(O), PCINTEROll. INTERNAL, BCUNCARY ( WORD, 1) 

16 

7 TRTPTR REGISTER(7), PCINTEROll, INTERNAL, BCUNDARY ( WORD, 1 ) 

a, 18 

*** PROC. GFTCD HAD NO ERRORS 
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• Example 5. Use of the GENERATE Statements (Part 7 of 10) 



I rr. OBJECT r.noE addri acdr2 stmt source statement 



ocoooo 

000000 90FC DOOC 
rC0C04 05RQ 

onooof- 

OC0006 

OOOOOA 50C0 RC7E 
000004 41 FO RC7A 
OOOOOE 50F0 0008 
000012 18DF 



0000T4 

000014 4510 BC16 
000018 90 

000015 OOOOCC 
OnOClC 0A13 
OOOOIE 



OOOOIF 9110 B0F6 



00002P 47'!0 RCZC 



000026 41F0 0003 
00002A 50F0 B0r2 



00007E 47F0 B06A 



3 * /* * 

4 * /♦ THIS PROCEDURE USES CCNTRCL PRCGRAM SERVICES TO DEFINE A DCBi * 

5 * /♦OPEN IT, AND READ A RECORD. * 

6 * /* ♦ 



0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
0001 
/*DCB*/ 

/*INPUT BUFFER*/ 
/♦SET TO INDICATE I/O 
ERROR*/ 
DCL OFLAGS BITIB) BAS EC ( ADCR( CARD IN ) +48 ) ; /♦OPEN FLAGS IN 

DCB*/ 
DCL RO REG(O) PTROl); /*POINTER TO INPUT 

BUFFER*/ 
DCL TRTPTR REG(7) PTROl); /*PTR TO INPUT BUFFER 

FOR TRT SCAN*/ 
RESTRICT(TRTPTR) ; /♦RESTRICT COMPILER USE*/ 

/♦GENERATE DCB AND TRT TABLED/ 





7 


♦ 


/♦♦♦♦* 


****** 


*************************** 




8 


♦GETCD: 


/♦ENTRY POINTS/ 




9 


* 




PROC 






10 






LCLA 


ST.GSPN 




11 


.3001 


ANOP 






12 


GETCD 


CSECT 




OOOOC 


13 






STM 


a)e.ac,i2(5)C) 




14 






RALR 


aB.o 




15 


aPSTART 


DS 


OH 




16 






USING 


aPSTART+ooooo.ae 


00084 


17 






ST 


a0,asAvooi+4 


CC080 


18 






LA 


aF,asAvooi 


00008 


19 






ST 


aF,8(0.fflDI 




20 






LR 


ao.sF 




21 


* 




DCL 


CARDIN CHAR(92) GENERATED 




22 


* 




DCL 


BUF CHAR(80) NCNLCCAL; 




23 


* 




DCL 


CODE LOCAL EXTERNAL; 




24 


♦ 









32 *GENERATE DATA 

33 * 

34 ♦ 



GEN (OPEN ( CARE I N. ( INPUT, REREAD) ) ); 

CPEN (CARDIN, ( INPUT, REREAD) ) 

CNOP 0.4 

BAL l,*+8 LCAC REGl W/LIST ADDR. 

DC AL1(144) OPTION BYTE 

CC A13(CARDIN) CCB ADDRESS 

SVC 19 ISSUE OPEN SVC 



/♦OPEN DCB*/ 



DS 



OH 





43 


* 




44 






45 


* 




46 


* 


00032 


47 






48 


♦ 


00003 


49 




O0OC8 


50 





/♦TEST FOR SUCCESSFUL OPEN*/ 
IF 0FLAGS(4)='0'B THEN 
TM OFLAGS, B'OOOIOOOO' 

/♦UPON FAILURE TO OPEN, SET 



DO: 



BC 



LA 



aF,3 



ST 



54 ♦GETNEXT: 



fflF,CODE 

RETURN; 
C 15.SEL01 

END: 
RO = AODR(BUF) ; 



00000 
OOOIO 
00020 
00030 
00040 
00050 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 





00350 




00360 


/♦OPEN FAILED*/ 


00370 


0011 


00380 


E AND RETURN*/ 


00390 




00400 


0011 


00410 


/*SET OPEN FAILURE CODE*/ 


00420 


0013 


00430 


0013 


00440 


/♦RETURN TO CALLING PROC^/ 


00450 


0014 


00460 




00470 


/♦SET PTR TO INPUT 


00480 


BUFFER*/ 


00490 
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F15APR68 


3/Z6/b9 


0015 


00500 


0015 


00510 


0015 


00520 




00530 




00540 



•Example 5, Use of the GENERATE Statements (Part 8 of 10) 



l.rc ORJECT CrOE 4DDR1 ADDR2 STMT SOURCE STATEMENT 

nnooi? 56 a9FF eou * 

000032 5filO RC76 OCOTC 57 fiETNEXT L 31,3*1 ADDRESS OF BUF 

000036 1801 58 LR 30,31 

59 * GEMIGET CARCIN,(0)); /*REA0 A RECORD*/ 

60 GET CAR0IN,(0) 
000038 4110 BOr.6 OOOCC 61+ LA 1,CARDIN LCAD PARAMETER REG 1 
00003C 5SF0 1030 00030 62+ L 15,48(0,1) LCAD GET ROUTINE ADDR. 
000040 05EF 63+ BALR 14,15 LINK TO GET ROUTINE 

00004? 64 OS OH 00550 

65 * TRTPTR=ADDR (BUF) : /*SET PTR TO EXECUTE TRT*/ 00560 

000042 5810 B076 0007C 66 L 31,3*1 ADDRESS OF BUF 0018 00570 

000046 1871 67 LR 37,31 0018 00580 

68 *GENERATEi 00590 

000048 DD4F 7000 B126 00000 OOIZC 69 TRT ( 80 ,7 ) , TRTT AS IS THIS CARD BLAhJK 00600 

00610 
00620 

72 * CODE=0; /*SET SUCCESSFUL READ*/ 00630 

000052 IBFF 73 SR 3F,3F 0020 00640 

000054 50F0 B0r2 0C0C8 74 ST 3F,C0DE 0020 00650 

75 * RETURN; /*RETURN TO CALLING PROC*/ 00660 

000058 47F0 BC6A 0C07O 76 BC 15,3EL01 0021 00670 

77 *ENDFILE: /*0N END OF FILE*/ 00680 

78 * CODE^li /*SET END OF FILE CODE*/ 00690 
00005C 41F0 OCOl CCOOl 79 ENCFILE LA aF,l 0022 00700 
000060 50F0 B0C2 000C8 80 ST 3F,C00E 0022 00710 

81 * RETURN: /*RETURN TO CALLING PROC*/ 00720 

000064 47F0 P06A OC070 82 BC 15,?EL01 0023 00730 

83 ♦lOERRCR: /*I F AN I/O ERROR OCCURS*/ 00740 

84 * CnDE=2: /tSET CODE FOR READ 00750 

85 * ERROR*/ 00760 
000068 41F0 0002 00002 86 ICERROR LA 3F,2 0024 00770 
00006C 50F0 6002 0C0C8 87 ST 3F,CCDE 0024 00780 

88 * RETURN: /*RETURN TO CALLING PROC*/ 00790 

89 * ' END GETCD; /*END OF GETCD PROC*/ 00800 
0C0070 5800 C004 0C004 90 3EL01 L 30,4(0,30) 0026 00810 
000074 98Er DOOf. OCOOC 91 LM 3E,3C,12(3C) 0026 00820 
000078 07FE 92 BCR 15. 3E 0026 00830 
000074 93 3DATA1 EOU * 00840 
nOOOOO 94 30 EOU 00 EQUATES FOR REGISTERS 0-15 00850 

000001 95 31 EOU 01 00860 

000002 96 32 EOU 02 00870 

000003 97 33 EOU 03 00880 

000004 98 34 EOU 04 00890 

000005 99 35 EOU 05 00900 

000006 100 36 EOU 06 00910 

000007 101 37 EOU 07 00920 
nOOOOa 102 38 EOU 08 00930 
000009 103 39 EOU 09 00940 
nOOOOA 104 3A EOU 10 00950 
OOOOOR 105 3E EOU 11 00960 
OOOOOt 106 3C EOU 12 00970 
nOOOOO 1C7 3C EOU 13 00980 
OOOOOE 108 3E EOU 14 00990 
OOOOOF 109 3F EOU 15 01000 
000074 0000 
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•Example 5, Use of the GENERATE Statements (Part 9 of 10) 



Lrr nSJFCT code «DDR1 ACORZ stmt source statement F15APR68 3/28/69 

00007C 00000000 110 fflAl DC AIBUF) 01010 

OCOOBO 111 DS OF 01020 

oconan 112 OS od 01030 

OCOO8O 113 SICATA EOU * 01040 

ncooeo ii4 asAvooi eou aoiJTA+oooooooo 72 byte(S) on word 01050 

115 EXTRN BUf= 01060 

116 ENTRY CODE 01070 
nOnOCP 117 CODE EOU aDATA+00000072 FULLWORD INTEGER 01080 

crooon lis ro eou ooOooooo fullword pointer register 01090 

nC0007 119 TRTPTR eou 00000007 fullword pointer register 01100 

OCOOPO 120 OS OO0O0O76C OHIO 

OOOOCC 121 SITEMPS DS OF 01120 

122 CARDIN DCS DSORG=PS , MACRF= ( GM) , CDN AME=BSL IN, OPTCD=C,REC FM=F , X 01130 

LRECL=80,BLKSIZE=80, BFTEK=S,BFALN=F,EODAD=ENOFILE, X 01140 

BUFN0=3,SYNAD=ICERRCR.ER0PT=ACC 01150 

DATA CCNTROL BLOCK 

OCOOCr 126+ CRG «-0 TO ELIMINATE UNUSEC SPACE 

OOOOCC 127+CARDIN DS OF ORIGIN CN WCRD BCUNDRY 

OOOOCC 128+ ORG *+0 TO ORIGIN GENERATION 

DIRECT ACCESS DEVICE INTERFACE 

OOOOCC 0000000000000000 132+ DC BL16'0' FDAD.DVTBL 

CnOODC OOOOOOOO 133+ CC A(0) KEYLE,DEVT,TRBAL 

CCMMON ACCESS METHOD INTERFACE 

OOOOFO 03 137+ DC ALIO) BUFNO 

OCOOFl 000001 138+ DC AL3(1) BUFCB 

OOOOEA 0000 139+ DC AL2(0) BUFL 

0000F6 4000 140+ CC BL2 '0 100000000000000 ' DSORG 

0000F8 00000001 141+ DC Ad) lOBAC 



124+* 




125 + * 




126+ 


CRG 


127+CARDIN 


DS 


128+ 


ORG 


130+* 




132 + 


DC 


133 + 


CC 


135+* 




137+ 


DC 


138+ 


DC 


139 + 


DC 


140 + 


CC 


141 + 


DC 


143 + * 




145 + 


DC 


146 + 


CC 


147 + 


DC 


148 + 


DC 


150+* 




152 + 


DC 


153 + 


CC 


154+ 


DC 


155 + 


CC 


157+* 




159+ 


DC 


160+ 


CC 


161 + 


DC 



FOUNDATION EXTENSION 

OOOOEr 41 145+ DC BLl '0 1000001 > BFTEK, BFALN, HI ARCHY 

OOOOFD 00005r 146+ CC AL3(ENCFILE) EODAD 

nOOOFO 80 147+ DC RLl ' 10000000' RECFM 

OOOOFl 000000 148+ DC AL3(0) EXLST 

FCUNOATION BLOCK 

O00OF4 C2E203C9n5404040 152+ DC CLS'BSLIN" D.DNAME 

OOOOFf 02 153+ CC BL 1 • 000000 10 ' CFLGS 

POOOFD 00 154+ DC BUI ' OOOOOOOO ' IFLG 

OOOOFE 5000 155+ CC BL 2 • 010 1000000000000 < MACR 

BSAM-BPAM-QSAM INTERFACE 

000100 20 159+ DC BL 1 ' 00 100000 ' RERl 

COOlOl 000001 160+ CC AL3(1) Ct-ECK, GERRt PERR 

000104 00000068 161+ DC A(IOERROR) SYNAD 
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• Example 5. Use of tOie GENERATE Statements (Part 10 of 10) 



1 re nBJFCT CODE AODRl ACDR2 STMT SOURCE STATEMENT F15APR68 3/28/69 

OROloa 0000 162+ DC H'O' CINDl, CIND2 

nnOlOA 0050 163+ DC AL2(80) BLKSIZE 

OOOIOC 00000000 164+ CC F'O' WCPC, WCPL, OFFSR, OFFSW 

nCOllO OOOCOOCl 165+ CC Ad) IDBA 

00011^ 00 166+ DC ALl(O) NCR 

000115 OOnOOl 167+ DC AL3(1) EOBR, ECBAD 

169+* CSAM INTERFACE 

000118 00000001 171+ DC All) RECAD 

nOOllC 0000 172+ CC H'O' OSWS 

nOOllF 0050 173+ DC AL2(80) LRECL 

OC0120 80 174+ DC BL 1 ' 10000000' EROPT 

000121 000001 175+ CC AL3(1) CNTRL 

000124 00000000 176+ DC F'O' PRECL 

000128 00000001 177+ DC Ad) EOB 

00012C FFFFFFFFFFFFFFFF 178 TRTTAB DC 64X'FF' 01160 

OOOlsr 00 179 CC X'OO' ONLY NCN-ZERO FUNCTION BYTE = BLANK 01170 

000160 FFFFFFFFFFFFFFFF 180 DC IQIX'FF' 01180 

OCOOFC 181 OFLAGS ECU CARCI N+00000048 8 EITIS) ON BYTE 01190 

00027C 1B2 aOATEND ECU ♦ 01200 

CnOOOO 183 END GETCD 01210 
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Appendist B: Example of Program Using BSL 
TRACE Option 

I Example 6 illustrates the use of the BSL TRACE option. 



• Example 6. Use of BSL TRACE Option (Part 1 of 11) 



**r.nNTRCL CARDS** 
tTRACE 

i MSGLFVFL=1 
tTRACE ON 



Appendix B: Example of Program Using BSL TRACE Option 109 



IBM Confidential 



Example 6, Use of BSL TRACE Option (Part 2 of 11) 

BSL/ELFVEN MAY69 PAGE 

0001 /*******♦*************«******♦******«***********+******♦****+******«*/ 
/* */ 

/♦ROUTINE TD SCAN FOR NAMES SEPARATED BY SEMICOLONS */ 

/* */ 

TRACECD: /*ENTRY PCINT FOR ^'AIN PROCEDURE*/ 
PRPC; 
000? DCL CARD CHAR(80); /*USFD TO HOLD A CARD IMAGE*/ 

0003 DCL SEMI CHAR(l) INITC:'); /*USEO TO CHECK FOR SEMICOLON*/ 

0004 DCL LENRTN ENTRY INTERNAL: /*ENTRY POINT OF INTERNAL 

PROG*/ 

0005 nCL NPTR PTROl): /*POINTS TO CHARACTERS ON THE 

CARD*/ 

0006 DCL FLAG CHAR(l) LOCAL EXT IN IT ( • 00 'X I ; /* INDI C AT ES IF A NAME 

IS FOUND*/ 

0007 DCL NMTABO) CHAR(9) INIT((3)" ')! /*NAME TABLE*/ 

0008 DCL R13 RF0ISTER(131 PTRs /*CONTAINS ADDRESS OF CALLERS 

SAVE AREA*/ 

0009 OCL PTBCK POINTER BASED ( Rl.3+4 ): /*PC INTS TO SECOND WORD OF 

CALLERS SAVE AREA*/ 

0010 DCL RETCD FIXED BASED ( PTBCK+ 16 J J /*USED FOR RETURN CODE*/ 
0011 

J=l; /*START OF NAME TABLE*/ 

0012 CALL PEAD<CARD); /*READ A CARD INTO 'CARD'*/ 

0013 /«SCAN CARD*/ 
no 1=1 TO 80: 

0014 /*CHECK FOR SEMICOLON OR BLANK*/ 

IF CARD(I)-.= ' 'SCAROI I)-.= SEMI THEN /*NOT A SEMICOLON OR BLNK*/ 

0015 /*SFT NPTR TO THE CHARACTER AND CALL ROUTINE TO PROCESS A */ 
/*NAME*/ 

DO; 

0016 NPTR=AD0R(CARD)+I-1 ; 

0017 CALL LENRTN(NPTR) : 

0018 END: 

0019 FNO; /*END OF ITERATIVE GROUP FDR 

SCANNING*/ 
0070 

FLAG='0F'X: /*INDICATE NC NAMES FOUND*/ 

0021 RETURN: /*RETURN TO CALLING PRGC*/ 

002? FULLTAB: /*TH£ NAME TABLE IS FULL*/ 

FLAG='FO": /*SET APPROPRIATE FLAG*/ 

0023 CFTCD=4; /*SET APPROPRIATE RETURN CODE*/ 
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• Example 6. Use of BSL TRACE Option (Part 3 of 11) 

BSI /El FVRN MAY69 PAGE ( 

0024 /****♦****♦****♦**********♦ it!******************* ************** ********/ 
/♦ */ 
/♦ROUTINE TO PROCESS A NAME-FIND LENGTH AND PUT NAME IN TABLE */ 
/* */ 

/************«***********************>!«*******************************/ 

LENRTN: /♦ENTRY POINT FOR INTERNAL PROC*/ 
PROC (STPTR): 

0025 DCL STPTR PTR; /*POINTS TO A CHAR ON THE 

CARD-SAME AS NPTR IN 
TRACECO*/ 

0026 DCL NAME CHAR(8) BASED( STPTR ); /*NAME ON THE CARD*/ 

0027 DCL LEN PTR(8)! /*LENGTH OF NAME*/ 



0028 



/*SCAN EACH LETTER OF NAME-SHOULD BE LESS THAN 8*/ 
DO K=l TO 9! 



0029 /* LOOK FOR A SEMICOLON*/ 

IF NAME(K)=SEMI THEN /*WHEN A SEMICOLON IS FOUND*/ 

0030 /*PROCESS NAME*/ 
DO; 

0031 LEM=K-l; /*SET LENGTH OF NAME*/ 

0032 I=I+LEN; /*REPOSITI0N SCAN INDEX*/ 

0033 GOTO SETNAME; /*PUT NAME IN TABLE*/ 
003A END: 

0035 END) /*EN0 OF ITERATIVE GROUP FOR 

SCANNING NAME*/ 

0036 FLAG='FF'XJ /*INDICATE NAME TOO LONG*/ 

0037 RETURN: /*RETURN TO CALLING ROUTINE*/ 

0038 SETNAME; /*PUT NAME IN TABLE*/ 

NMTAB(J,1)=LEN! /*PUT LENGTH IN TABLE*/ 

0039 NMTAB(J,21=NAME(1:LEN1 ) /*PUT NAME IN TABLE*/ 

ooao j=j+l; /*bump ptr tc next slot*/ 

0041 /*che:ck eor full table*/ 

if j<4 then /*table not full*/ 

0042 /*set return code and return*/ 
do; 

0043 retcd=0; /*set return code*/ 

0044 goto ret: /*branch to return*/ 

0045 END: 

0046 ELSE /*TABLE IS FULL*/ 

/*INDICATE FULL TABLE*/ 
DO; 

0047 J=l: /*RESET INDEX FOR NEXT GROUP*/ 

0048 RETCD=20; /*SET RETURN CODE FOR FULL 

TABLE*/ 

0049 RETURN TO FULLTAB; /*BRANCH TO FULLTAB*/ 

0050 END; 

0051 RFT: /*ENO OF ROUTINE*/ 

END LENRTN; /*RETURN TO CALLING PROC-END OF 

INTERNAL PROC*/ 

0052 END TRACECD; /*END OF MAIN PROC*/ 
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• Example 6, Use of BSL TRACE Option (Part U of 11) 

BSL/FLEVEN MAY69 PAGE 003 

nCL'O IN NAME ATTRIBUTE AND CROSS REFERENCE TABLE 

7 CARD STATIC, LOCAL, CHARACTER ( 80 ) , INTERNAL, BOUNDARY ( BYTE, 1 ) 

12, 14, 14, 16 

6 Fl Afi STATIC, LOCAL. CHARACTER ( 1) , EXTERNAL, BOUNDARY( BYTE , 1 ) 

20, 22, 36 

22 FULLTAB STATIC, LOCAL, LABEL, INTERNAL 

22, 49 

13 * I STATIC, LOCAL, FIXEDOl), INTERNAL, BCUNOARY( WORD, 1 ) 

13, 14, 14, 16, 32, 32 

11 * J STATIC, LOCAL, FIXEDOl), INTERNAL, BOUNDARY ( WORD, 1) 

11, 38, 39, 40, 40, 41, 47 

2R * K STATIC, LOCAL, FIXE0(31), INTERNAL, BOUNDARY ( WORD, 1 ) 

26, 29, 31 

27 LEN STATIC, LOCAL, POINTERIS), INTERNAL, BOUND ARY ( BYTE, 1 ) 

31, 32, 38, 39 

4 LFNRTN STATIC, LOCAL, ENTRY, INTERNAL 

17, 24, 51 

26 NAME BASED ON STPTR, CHARACT ER ( 8 ) , BOUNDARY ( BYTE, 1 ) 

29, 39 

7 NMTAB (3), STATIC, LOCAL, CHAR ACT ER( 9 I , INTERNAL, BOUNDARY ( BYTE , 1 ) 

38, 39 

5 NPTR STATIC, LOCAL, POINTEROl), INTERNAL, BOUNDARY ( WORD, 1) 

16, 17 

9 PTBCK BASED ON R13 + 4, POINTEROl), BOUNDARY ( WORD, 1 ) 

10 

12 READ STATIC, NONLOCAL, ENTRY, EXTERNAL 

12, 52 

44 RET STATIC, LOCAL, LABEL, INTERNAL 

44, 51 

10 RFTCO BASED ON PTBCK + 16, FIXEDOl), BOUNDARY ( WORD, 1 ) 

23, 43, 48 

8 R13 REGISTER(13) , P0INTER(31), INTERNAL, BOUNDARY (WORD, 1 ) 

9 

3 SEMI STATIC, LOCAL, CHARACTER(l), INTERNAL, BOUNDARY! BYTE, 1 ) 

14, 29 

33 SETNAME STATIC, LOCAL, LABEL, INTERNAL 
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• Example 6, Use of BSL TRACE Option (Part 5 of 11) 

RSL/ELEVFN MAY6q PAGE ( 

Or.L'C IN NAME ATTRIBUTE AND CROSS REFERENCE TABLE 

33, 38 

?4 STPTR PARAMETER, PDINTEROl), INTERNAL, BOUNDARY ( WORD, 1 ) 

25. 25, 26 

1 TRACECD STATIC, LOCAL. ENTRY, EXTERNAL 

1, 52 

*** PROC. TRACECD HAD NO ERRORS 
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LOr. ORJFCT CODE AODRl ADDR2 STMl SOURCE STATEMENT 



000000 










4 TRACECI 


000000 


90FC 


ooor. 




OOOOC 


5 


000004 


O5B0 








6 


OOOOOA 










7 aPSTAR' 


000006 










8 


000006 


50D0 


R2EF 




002F4 


9 


OOOOOA 


41F0 


B2EA 




002F0 


10 


OOOOOE 


50F0 


0008 




00008 


11 


000012 


leOF 








12 


000014 


58F0 


R2D6 




002DC 


13 


OOOOlfl 


05FF 








14 


OOOOIA 


F3D9r.lC3r.5r.3C440 




15 


0000?2 


0001 








16 


0000?4 


0002 








17 


000026 


9200 


0002 


00002 




18 


00002A 


920R 


C003 


00003 




19 


00002E 


41F0 


0001 




00001 


20 


000032 


50F0 


R3A6 




003Ar 


21 


000036 


920r 


0003 


00003 




22 


00003A 


58F0 


B2nE 




002E4 


23 


00003E 


05EF 








24 


000040 


ooor. 








25 


000042 


D9C5r.lC440404040 




26 


00004A 


41E0 


fl052 




00058 


27 


00004F 










28 


00004E 


58F0 


B2CA 




002D0 


29 


00005? 


051F 








30 


000054 


00000-338 






31 


000058 


41F0 


0001 




00001 


32 aCL9FF 


00005C 


50F0 


B3AA 




003R0 


33 


P00060 


45E0 


8204 




002CA 


34 30n9FD 


000064 


OOOD 








35 


000066 


920E 


0003 


00003 




36 


000064 


5810 


B3AA 




003B0 


37 


0006F 


41A1 


B331 




00337 


38 


000072 


9540 


AOOO 


00000 




39 


000076 


4780 


ROPC 




000C2 


40 


00007A 


0500 


AOOO H382 


OOOCO 


00388 


41 


000080 


4780 


R0R6 




OOOBC 


42 


000084 


9210 


DQ03 


00003 




43 


000088 


48F0 


B2R6 




002RC 


44 


OnOORC 


5AF0 


R3AA 




003B0 


45 


000090 


4100 


B332 




00338 


46 


000094 


lAFO 








47 


000096 


50F0 


B386 




0038C 


48 


00009A 


9 211 


0003 


00003 




49 


00009F 


58F0 


B2DE 




002E4 


50 


0000A2 


05EF 








51 


0000A4 


0011 








52 


0000A6 


D3C5D5D9E3D54040 




53 


OOOOAE 


41E0 


B0B6 




OCOBC 


54 


0000R2 


0700 








55 



ICTL 


01,71,16 


LCLA 


£T,£SPN 


ANOP 




CSECT 


, 


STM 


aE ,ac,i2(aD) 


RALR 


38,0 


OS 


OH 


USING 


aPSTART+ooooo.ae 


ST 


aD,asAvooi+4 


LA 


aF.asAvooi 


ST 


aF,a(o,3D) 


LR 


ao.aF 


L 


aF,aBSLTRCE 


RALR 


aE,aF 


or 


CLS'TRACECC ' 


DC 


H'OOOl' 


DC 


H'0002" 


MVI 


0002001,0011/256 


MVI 


ooo2+i(ac), 0011-0000 


LA 


aF,i 


ST 


aF,j 


MVI 


0002+l(aD), 0012-0000 


L 


aF,aBSLTRCC 


BALR 


aE,aF 


DC 


H'0012' 


DC 


CLfl'READ 


LA 


aE,aCL9FF 


CNOP 


2,4 


L 


aF.avi / 


BALR 


ai.aF 


DC 


A(CARD) 



ADDRESS OF READ 



aE,aBSLTRCB 

H'0013' 

000 2+1(30) ,0014-0000 

31,1 

aA,CARD-l(31) 

0(3A),C' ' 

08,a9F9 

0(l,aA),SEHI 

08,39F8 

0002+1 (aC) ,0016-0000 

aF.aoi 
aF,i 

30, CARD 

3F,ao 

aF,NPTR 

0002+1(30 ,0017-0000 

aF.aBSLTRCC 



BALR aE,aF 



H'0017< 

CLB'LENRTN 

aE,aCL9F7 



F15APR68 


3/28/69 




00000 


0001 


00010 


0001 


00020 


0001 


00030 


0001 


00040 


0001 


00050 


0001 


00060 


0001 


00070 


0001 


00080 


0001 


00090 


0001 


00100 


0001 


00110 


0001 


00120 


0001 


00130 


0001 


00140 


0001 


00150 


0001 


00160 




00170 




00180 


0011 


00190 


0011 


00200 




00210 


0012 


00220 


0012 


00230 


0012 


00240 


0012 


00250 


0012 


00260 


0012 


00270 


0012 


00280 


0012 


00290 


0012 


00300 


0013 


00310 


0013 


00320 


0013 


00330 


0013 


00340 




00350 


0014 


00360 


0014 


00370 


0014 


00380 


0014 


00390 


0014 


00400 


0014 


00410 




00420 


0016 


00430 


0016 


00440 


0016 


00450 


0016 


00450 


0016 


00470 




00480 


0017 


00490 


0017 


00500 


0017 


00510 


0017 


00520 


0017 


00530 


0017 


00540 
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Example 6. Use of BSL TRACE Option (Part 7 of 11) 



Lcr. 


DBJFCT CODE 


ADORl 


ADDR2 


STMT 


SOURCE 


STATE 


MENT 




n000B4 


4510 


8132 




00138 


56 




BAL 


ai. LENRTN 




OnOQRS 


0000038C 






57 




DC 


A(NPTR) 




OOOOBC 










58 


aCL9F7 


EOU 


* 




OOOORC 


45E0 


B2C4 




002CA 


59 


a9F8 


BAL 


aE.aBSLTRCR 




ooooco 


0012 








60 




DC 


H'0018' 




oooor.2 


45E0 


8 204 




002CA 


61 


?9F9 


BAL 


ae.aBSLTRCB 




0000C6 


0012 








62 




DC 


H<0018' 




ooooce 


9213 


0003 


00003 




63 




MVl 


0002+1 ( a C) ,0019-0000 




oooocr. 


58F0 


B3AA 




003R0 


64 




L 


aF,i 




onooDo 


4&F0 


BZB8 




002BE 


65 




AH 


aF,aD2 




0000D4 


50F0 


R3AA 




003B0 


66 


aD09FC 


ST 


aF.i 




OO00D8 


50FO 


83FE 




00404 


67 




ST 


aF.aTi 




OOOODC 


45E0 


B2f,4 




002CA 


68 




BAL 


aE.aBSLTRCB 




noooFO 


0013 








69 




DC 


H'0O19' 




OOOOE? 


58F0 


R3FE 




00404 


70 




L 


aF.aTi 




OOOOEA 


49F0 


B2BA 




002C0 


71 




CH 


aF,aD3 




tlOOOEA 


47C0 


R05A 




00060 


72 




BC 


12.aD09FC 




OOOOEE 


<5214 


D003 


00003 




73 




MVI 


0002+l(aC), 0020-0000 




0O00F2 


9Z0F 


B38A 


00390 




74 




MVI 


FLAG.X'OF" 




onooF6 


9215 


0003 


00003 




75 




MVI 


0002+l(aC). 0021-0000 




OOOOFA 


47F0 


B114 




0011& 


76 




BC 


15. aELOl 




OOOOFE 


45E0 


R2C,4 




oozr.A 


77 


FULLTAB 


RAL 


ae.aBSLTRCB 




000102 


0016 








78 




DC 


H"0022< 




000104 


0200 


B38A B?E2 


00390 


002E8 


79 




MVC 


FLAG(l),aC3 




OOOIOA 


9217 


0003 


00003 




80 




MVI 


0002+l(aCl ,0023-0000 




000 10 E 


41F0 


0004 




00004 


81 




LA 


aF.4 




000112 


581D 


0004 




00004 


82 




L 


ai,4(ao) 




000116 


50F0 


1010 




00010 


83 




ST 


aF, 16(0,31) 




ooniiA 


45E0 


RZr.4 




002C& 


84 


aELOl 


BAL 


aE,aBSLTRCB 




OOOllE 


0018 








85 




DC 


H'0024' 




000120 


58F0 


B2r.E 




002D4 


86 




L 


aF,aBSLTRCR 




000124 


05EF 








87 




BALR 


aE.aF 




000126 


60C3r,I03r)3r,5D960 




88 




DC 


CL8'-CALLER-< 




00012F 


58C0 


0004 




00004 


89 




L 


aD,4(o,aD) 




000132 


9BEC 


DOor. 




00 Of, 


90 




LM 


aiE.ac<i2(ai:) 




0001^6 


07FE 








91 




BCR 


15, aE 




000138 


90EC 


oooc 




OOOOC 


92 


LENRTN 


STM 


aE,ac,i2(ac) 




0001 3r. 


50D0 


B3R2 




003B8 


93 




ST 


aio,asAvoo2+4 




000140 


41F0 


B3aE 




03B4 


94 




LA 


aF,asAvoo2 




000144 


50F0 


D008 




0C008 


95 




ST 


aF,8(0,SD) 




000148 


18DF 








96 




LR 


ao.aF 




00014A 


58F0 


R206 




002()C 


97 




L 


aF.aSSLTRCE 




00014E 


05EF 








98 




BALR 


aE.aF 




000150 


03f,505D9E3D54040 




99 




DC 


CL8' LENRTN . 




000158 


OOlfi 








100 




DC 


H'0024' 




00015A 


0002 








101 




DC 


H'0002' 




oooisr 


41F0 


0001 




00001 


102 




LA 


aF.i 




000160 


50F0 


P3FA 




00400 


103 




ST 


aF,K 




000164 


45E0 


R2r,4 




002CA 


104 


aD09F5 


BAL 


aE.aBSLTRCB 




000168 


OOIC 








105 




DC 


H'0028' 




00016A 


921D 


0003 


00003 




106 




MVI 


000 2+l(aC) ,0029-0000 




00016E 


58C0 


B3FA 




00400 


107 




L 


acK 




000172 


5880 


1000 




00000 


108 




L 


a8.0(0.al) ADDRESS OF STPTR 


000176 


5898 


0000 




OCOOO 


109 




L 


a9.0(a8) STPTR 




00017A 


41AC 


9000 




00000 


110 




LA 


aA.o(ac,a9) 





F15APR68 


3/28/69 


0017 


00550 


0017 


00560 


0017 


00570 


0018 


00580 


0018 


00590 


0018 


00600 


0018 


00610 




00620 


0019 


00630 


0019 


00640 


0019 


00650 


0019 


00660 


0019 


00670 


0019 


00680 


0019 


00690 


0019 


00700 


0019 


00710 




00720 


0020 


00730 




00740 


0021 


00750 


0022 


00760 


0022 


00770 


0022 


00780 




00790 


0023 


00800 


0023 


00810 


0023 


00820 


0024 


00830 


0024 


00840 


0024 


00850 


0024 


00860 


0024 


00870 


0024 


00880 


0024 


00890 


0024 


00900 


0024 


00910 


0024 


00920 


0024 


00930 


0024 


00940 


0024 


00950 


0024 


00°60 


0024 


00970 


0024 


00980 


0024 


00990 


0024 


01000 


0028 


01010 


0028 


01020 


0028 


01030 


0028 


01040 




01050 


0029 


01060 


0029 


01070 


0029 


01080 


0029 


01090 
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•Example 6. Use of BSL TRACE Option (Part 8 of 11) 



L.rc nRjEr.T cnoE aodri addr2 stmt source statement 



nOOlTE 0640 

nooiao nson aooo r382 ooooo ooass 

000185 ^770 RIAC 001B2 

OnOlRA 9?1F 0003 00003 

00018F SBFO B3FA 00^00 

0n0l<52 06F0 

000194 42F0 R3F6 003FC 

000198 9220 0003 00003 

00019C IBFF 

00019F 43F0 R3F6 003Fr 

n001A2 5AF0 R3AA C03B0 

0001A6 50FO R3AA 003R0 

OOOIAA 9221 nC03 00003 

OOOIAE 47F0 B1E8 OOIEE 

0001R2 45E0 82C4 002CA 

n001R6 0022 

OnOlRR 9223 0003 00003 

OOOIBC 58F0 B3FA 004C0 

nOOirO 4AF0 R2R8 002BE 

OOOir.4 50F0 R3FA COtOO 

OOOirS 50F0 R3FE 00404 

OOOlCr. 45EO B2r4 0C2rA 

OOOinO 0023 

000102 58F0 R3FE 00404 

000106 49F0 R2RC C02r.2 

OOOIOA 47C0 RISE 00164 

OOOIDE 9224 0003 00003 

0001E2 92FF B38A 00390 

0001E6 9225 0003 00003 

nOOlFA 47F0 8114 OOllA 

OOOIEE 45E0 B2r4 002CA 

0001F2 0026 

0001E4 58C0 B3A6 003AC 

0001F8 4CC0 R2RC 002C2 

OOfllFC 41AC R382 00388 

000200 0200 AOOO 83F6 OOOOO 003FC 

000206 9227 0003 00003 

00020A 1 B88 

00020C 4380 B3F6 

000210 41Ar. R383 

000214 4190 0001 

000218 5860 1000 

0002ir, 5876 0000 

000220 41E9 7000 

000224 06E0 

000226 1B89 

000228 4480 R2aE 

00022C 9228 0003 

000230 41F0 0001 

000234 5AF0 B3A6 

000238 50F0 R3A6 

00023C 9229 0003 

000240 41F0 0004 

000244 59F0 R3A6 

000248 47C0 R264 



003FC 
00389 
00001 
OOOOO 
OOOOO 
OOOOO 



00001 

oo3&r. 

03 AC 

00004 
003AC 
0026A 



HI 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 a9Fl 

126 

127 

128 

129 

130 a009F4 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 SETNAME 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

151 

162 

163 

164 

165 



RCTR 

STC 

MVI 



RC 
NVI 



MVC 
MVI 



LA 

RCTR 

SR 

EX 

MVI 

LA 



SA.O 

01 l.aAt.SEMI 

07.S9F1 

0002+1(30,0031-0000 

aF,K 

aF.o 

aF.LEN 

0002+1 (aC) ,0032-0000 

aE.aF 

aF.LEN 

aF. I 
aF, I 

0002+1(30 ,0033-0000 

15. SETNAME 

aE.aBSLTRCB 

H'0034' 

0002+1(30 ,003 5-0000 

SE.K 

aF,aD2 

aE.K 

aF.aTi 

aE.aBSLTRCB 
H'0035' 

aF.aTi 

3F.aD4 

12.aD09F5 

0002+1 (aC) ,0036-0000 

FLAG.X' FF' 

000 2+1 (?0 ,0037-0000 

15,aEL01 

aE,aBSLTRCB 

H'0038' 

acj 
ar.aD4 

aA,NMTAB-9(aC) 

0(l,aA),LEN 

0002+1(30,0039-0000 

38,38 

a8,LEN 

aA,NMTAB-8(aCl 

39,1 

36.0(0,311 

37,0(35) 

aE, 0(39, 37) 

aE,o 

38.39 

aB.aMvc 

0002+1 (aC) ,0040-0000 

aF,i 
aF, J 
aF, J 

0002+l(aO ,0041-0000 



ADDRESS OF STPTR 
STPTR 



F15APR68 


3/28/59 


0029 


01100 


0029 


OHIO 


0029 


01120 




01130 


0031 


01140 


0031 


01150 


0031 


01160 




01170 


0032 


01180 


0032 


01190 


0032 


01200 


0032 


01210 




01220 


0033 


01230 


0034 


01240 


0034 


01250 




01260 


0035 


01270 


0035 


01280 


0035 


01290 


0035 


01300 


0035 


01310 


0035 


01320 


0035 


01330 


0035 


01340 


0035 


01350 




01360 


0036 


01370 




01380 


0037 


01390 


0038 


01400 


0038 


01410 


0038 


01420 


0038 


01430 


0038 


01440 


0038 


01450 




01450 


0039 


01470 


0039 


01480 


0039 


01490 


0039 


01500 


0039 


01510 


0039 


01520 


0039 


01530 


0039 


01540 


0039 


01550 


0039 


01550 




01570 


0040 


01580 


0040 


01590 


0040 


01600 




01510 


0041 


01620 


0041 


01630 


0041 


01540 
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•Example 6. Use of BSL TRACE Option (Part 9 of 11) 



LCC 


OBJFCT CODE 


ADDRl 


ADDR2 


STMT 


SOURCE 


STATE 


;ment 




00?AC 


922R 


D003 


00003 




166 




MVI 


0002+1(301 ,0043- 


-0000 


000250 


IBFF 








167 




SR 


aF,aF 




000252 


5880 


0004 




00004 


158 




L 


a8.4(aD) 




000755 


50F0 


8010 




00010 


169 




ST 


aF, 16(0, as) 




00025A 


9220 


0003 


00003 




170 




MVI 


ooo2+i(ac),oo44- 


-0000 


00025F 


47F0 


R2Ar. 




002B2 


171 




BC 


15. ret 




O002A2 


9220 


0003 


00003 




172 




MVI 


0002+1(30,0045- 


-0000 


000266 


47F0 


B2A6 




002A0 


173 




BC 


l5.a9EF 




00026A 


45E0 


8204 




002CA 


174 


a9F0 


RAL 


a?. aBSLTRCB 




00026E 


002D 








175 




DC 


H<0045' 




000270 


922F 


0003 


00003 




176 




MVI 


0002+1(30,0047- 


-0000 


000274 


41F0 


0001 




OCOOl 


177 




LA 


aF,i 




000278 


50F0 


B3A6 




03 AC 


178 




ST 


aF.J 




00027C 


9230 


0003 


00003 




179 




MVI 


0002+1(30,0048- 


-0000 


000280 


41F0 


0014 




00014 


180 




LA 


aF,20 




000284 


58f,D 


0004 




C0004 


181 




L 


ac,4(30) 




000288 


50F0 


roio 




00010 


182 




ST 


aF,i6(o,ac) 




000280 


9231 


0003 


O0C03 




183 




MVI 


0002+1(30,0049- 


-0000 


000290 


58F0 


B2rE 




002D4 


184 




L 


aF.aBSLTRCR 




000294 


05FF 








185 




BALR 


aE.aF 




000296 


C6E4D3C3E3r,lf.240 




186 




DC 


CLS'FULLTAB ' 




C0029E 


58D0 


0004 




00004 


187 




L 


3D, 4(0, 30) 




00O2A2 


41E0 


R0F8 




CCOFE 


188 




LA 


aE.FULLTAB 




0002A6 


98Fr 


DOlO 




00010 


189 




LM 


aF,ac,i6(aD) 




0002AA 


07FE 








190 




BCR 


15, aE 




0002AC 


45E0 


R2C4 




002rA 


191 


a9EF 


BAL 


aE. aBSLTRCB 




n002RO 


0032 








192 




DC 


H'0050' 




O0n2R7 










193 


RET 


EOU 


* 




n002R2 


45E0 


8204 




002CA 


194 


aEL02 


BAL 


aE, aBSLTRCB 




0002R6 


0032 








195 




DC 


H'0050' 




0002B8 


47F0 


R114 




OGllA 


196 




BC 


16,3EL01 




0002RC 










197 


fflOATAl 


EOU 


* 




000000 










198 


ao 


EOU 


00 


1 


000001 










199 


ai 


EOU 


01 




000002 










2 00 


a2 


EOU 


02 




000003 










201 


a3 


EOU 


03 




000004 










202 


a4 


EOU 


04 




000005 










203 


as 


EOU 


05 




000006 










2 04 


ffl6 


EOU 


06 




000007 










205 


a7 


EOU 


07 




000008 










2 05 


as 


EOU 


08 




000009 










2 07 


39 


EOU 


09 




OOOOOA 










2 08 


aA 


EOU 


10 




OOOOOR 










209 


aB 


EOU 


11 




ooooor. 










210 


ac 


EQU 


12 




OOOOOD 










211 


ao 


EOU 


13 




OOOOOF 










212 


aE 


EOU 


14 




OOOOOF 










213 


ap 


EQU 


15 




0002Rr. 


FFFF 








214 


aoi 


DC 


H>-1< 




0002RF 


0001 








215 


aD2 


DC 


H'l' 




000200 


0050 








216 


aD3 


DC 


H'80" 




000202 


0009 








217 


aD4 


DC 


H'9' 




0002C4 


0200 


AOOO FOOO 


00000 


00000 


218 


aMVC 


MVC 


o(i,aA).o(aE) 




ooopr.A 


58F0 


R2DA 




C02E0 


219 


aBSLTRCB 


L 


aF.3BSLTRCL 




0002CE 


07FF 








220 




BCR 


15, 3F 





EQUATES FDR REGISTERS 0-15 



F15APR6S 


3/28/69 




01550 


0043 


01660 


0043 


01670 


0043 


01680 




01690 


0044 


01700 




01710 


0045 


01720 


0045 


01730 


0045 


01740 




01750 


0047 


01760 


0047 


01770 




01780 


0048 


01790 


0048 


OlSOO 


0048 


01810 




01820 


0049 


01830 


0049 


01840 


0049 


01850 


0049 


01860 


0049 


01870 


0049 


01880 


0049 


01890 


0050 


01900 


0050 


01910 


0050 


01920 


0050 


01930 


0050 


01940 


0050 


01950 




01960 




01970 




01980 




01990 




02000 




02010 




02020 




02030 




02040 




02050 




02050 




02070 




02080 




02090 




02100 




02110 




02120 




02130 




02140 




02150 




02150 




02170 




02180 




02190 
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•Example 6. Use of BSL TRACE Option (Part 10 of 11) 



Lcr, 


OBJECT CODE ADORl AD0R2 STMT 


SOURCE 


STATE 


WENT 




000200 


00000000 


221 


SVl 


DC 


V(READI 




000204 


OOCOOOOO 


222 


aBSLTRCR 


DC 


V(IKETRCR) 




000208 


00000000 


223 


SBSLTRCI 


DC 


V( IKETRCn 




noo2or 


00000000 


224 


SIBSLTRCE 


DC 


V(IKETRCE) 




ooo2eo 


00000000 


225 


SBSLTRCL 


DC 


V( IKETRCL) 




0002E'i 


OOCOOOOO 


226 


aeSLTRCC 


DC 


V(IKETRCC) 




0002F8 




227 




DS 


OF 




0002F8 


06 FO 


228 


SC3 


DC 


C'FO' 




00n2F0 




229 




OS 


OD 




0002FO 




230 


aOATA 


ECU 


* 




0002FO 




231 


SSAVOOl 


EOU 


aOATA+OOOOOOOO 


72 BYTE(S) ON WORD 


0003^8 




232 


CARD 


ECU 


30ATA+00000072 


80 BYTE(S) 


000388 




233 




ORG 


aDATA+00000152 




000388 




234 


SEMI 


EOU 


* 


1 BYTE(S) 


000388 


5E 


235 




DC 


C ;' 




00038r 




236 
237 


NPTR 


EOU 
ENTRY 


aDATA+00000156 
FLAG 


FULLWORO POINTER 


000390 




238 




□ RG 


aDATA+00000160 




000390 




239 


FLAG 


EOU 


* 


1 BYTE(S) 


000390 


00 


240 




DC 


X'OO' 




000391 




241 


NMTAB 


EOU 


* 


3*9 BYTE(S) 






242 


£T 


SETA 


00003 








243 


.L099999 


ANOP 






000391 


40 


244 




DC 


C • 




000392 


4040404040404040 


245 




DC 


00008C< • 








246 


£T 


SETA 


ET-1 








247 




AIF 


(ET NE 0I.L099999 








248 


.L 099999 


ANOP 






00039A 


40 


249 




DC 


C " 




00039R 


4040404040404040 


250 




DC 


00008C' ' 








251 


ET 


SETA 


ET-1 








2 52 




AIF 


(ET NE 0).L099999 








2 53 


. L099999 


ANOP 






0003/S3 


40 


2 54 




DC 


C • 




00034A 


4040404040404040 


255 




DC 


00008C' ■ 








256 


£T 


SETA 


ET-1 








257 




AIF 


(ET NE 0).L099999 




OOOOOO 




258 


R13 


EOU 


00000013 


FULLWORD POINTER REGISTER 


000004 




259 


PTBCK 


EOU 


00000004 


FULLWORD POINTER 


000010 




260 


RETCD 


EOU 


00000016 


FULLWORD INTEGER 


ooo3«r. 




261 


J 


EOU 


aDATA+00000188 


FULLWORO INTEGER 


0C03B0 




262 


I 


EOU 


aOATA+00000192 


FULLWORO INTEGER 


0003B4 




263 


aSAV002 


EOU 


aDATA+00000196 


72 BYTE(S) ON WORD 


OOOOOO 




264 


STPTR 


EOU 


00000000 


FULLWORO POINTER 


OOOOOO 




265 


NAME 


EOU 


00000000 


8 BYTE(S) 


0003FC 




2^66 


LEN 


EOU 


S:DATA + 00000268 


1 BYTE POINTER 


000400 




267 


K 


EOU 


aDATA+00000272 


FULLWORD INTEGER 


0C02F0 




268 




ORG 


aOATA 




0002F0 




269 




OS 


00000276C 




000404 




270 


fflTEMPS 


DS 


OF 




0C0404 


00000000 


271 


STl 


DC 


F'O' 




000408 
CCOOOO 




272 
2 73 


aCATENC 


EOU 
END 


TRACECD 





02200 
02210 
02 22 
02230 
02240 
02250 
02260 
02270 
02280 
02290 
02300 
02310 
02320 
02330 
02340 
02350 
02360 
02370 
02380 
02390 
02400 
02410 
02 42 
02430 
02440 
02450 
02460 
02 42 
02 430 
02440 
02450 
02460 
02 42 
02430 
02440 
02450 
02460 
02470 
02480 
02490 
02500 
02510 
02520 
02530 
02 540 
02550 
02560 
02570 
02580 
02590 
02500 
02510 
02620 
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•Example 6. Use of BSL TRACE Option (Part 11 of 11) 

FNTfRING TPACECC . SAVF AREA AT 016310 

CALLING REAC FROM STATEMENT 00012. 

TO OOnia FROM 00014. 

TO OOOn FROM 00019. 

r.ALLINP. LEMRTN FROM STATEMENT 0C017. 

ENTERING LENRTN . SAVE AREA AT 016304 

TO 00028 FROM 00024. 

TO 000?4 FROM 00029. 

TO 00028 FROM 00035. 

TO 00034 FROM 00029. 

TO 00028 FROM 00035. 

TO 00034 FROM 00029. 

TO 00.028 FROM 00035. 

TO 00038 FROM 00033. 

TO 00050 FROM 00044. 

TO 00024 FROM 00050. 
RETURNING TO -CALLER- FROM 00024., RETURN CODE IS 000000. 

TO 00013 FROM 00019. 

TO 00018 FROM 00014. 

TO 00013 FROM 00019. 

TO 00018 FROM 00014. 

TO 00013 FROM 00019. 

TALLTNG LFNRTN FROM STATEMENT CC017. 

ENTERING LENRTN . SAVE AREA AT 016304 

TO 00028 FROM 00024. 

TO 00034 FROM 00029. 

TO 00028 FROM 00035. 

TO 00034 FROM 00029. 

TO 00028 FROM 00035. 

TO 00038 FROM 00033. 

TO 00050 FROM 00044. 

TO 00024 FROM 00050. 
RETURNING TO -CALLER- FROM 00024. RETURN CODE IS 000000. 

TO 00013 FROM 00019. 
CALLING LENRTN FROM STATEMENT Q0017. 

FNTFRING LFNRTN . SAVE ARFA AT 0163D4 

TO 00028 FROM 00024, 

TO 00034 FROM 00029. 

TO 00028 FROM 00035. 

TO 00038 FROM 00033. 

TO 00045 FROM 00041. 
RETURNING TO FULLTAB FROM 00049. RETURN CODE IS 000014. 

TO 00022 FROM 00017. 
RFTIJRNING TO -CALLER- FROM 00024. RETURN CODE IS 000004. 
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Appendix C: Example of BSL Program Using 
OS TESTRAN 



Example 7 illustrates the use of OS TESTRAN with your BSL program. The 
example shows a method of displaying two areas in the BSL program. One 
area is AUTOMATIC, the other is STATIC, and both areas are displayed at 
the label BACK in the BSL program. 



• Example 7. Use of OS TESTRAN (Part 1 of 17) 



///I jnP MSCLEVFL=!l 

//JORLIB CD DSNiAMF=r.MP2 ,015?= (OLD .PASS) .UNIT=2311 , VDLUME=SER=XB 157 

//STFPl FXFC PnN'sIFUASM.PARC^'LnAD.NODErK.TEST' 

//SYSGQ DO DSNAME = f.L0ADSFT,SPACE=(80, (200,5) ) , DI SP= ( MOD ■ PASS 1 .UMT=23U 

//SYSLIR DO nSNAMF=SYSl.MArLIB.UNIT=2311.V0LUME=SER=SYSRS3, X 

// DISP=(nLD.PASS) 

//SYSPUNCH Cn UNIT=?5^0-? 

//SYSPRINT CR SYSOUT=A 

//SYSUTl DD DSNAME=SUT1,UNIT=2311.DISP=(NEW.DELETE) ■SPACE=(CYL, (3,1) ) 

//SYSUT2 CD nSNAME=f.UT2.UNIT=2311.DISP=(NEW,DELETE) .SPACE = (CYL,(3,1)) 

//SYSUT3 DD DSWAME=eUT3.UNIT=2311,DISP=(NEVl,DELETE) .SPACE=(CYL,(3,1M 

//SYSTN Dr * 

STEPl 



IFF236I 


ALi or.. 


FOR 


i 


IFF237I 


JORLTR 




ON 


251 


TFF237I 


SYSGG 




OM 


190 


I FF737I 


SYSL IR 




OM 


290 


TFF237I 


SYSPllNf.H 


noj 


OOD 


TEF237I 


SYSUTl 




DM 


1<:2 


IFF237I 


SYSUT? 




ON 


191 


[FF237I 


SYSUT3 




ONI 


291 


TFF737I 


SYSIN 




flN 


ooc 



120 



IBM Confidential 



Example 



Use of OS TESTRAN (Part 2 of 17) 



LXr. OBJECT CODE &DDR1 ADDR2 STMT SOURCE STATEMENT 



PAGE 1 
3/28/69 



OCOOOO 

000000 0A31 

00000? 15 

000003 000000 

000006 4n40C2E2C3C6F4E3 

OOOOOE 80 

OOOOOF 0032 

000011 0060 

000013 BC 

000014 00 

000015 62 
COOOOO 



000000 
000015 
000015 

000015 0? 

000016 01 

000017 07 

000018 OOCOOO 
OOOOIB 01 
OOOOIC 62 
000000 



000000 

ooooir 

OOOOIC 

OOOOIC lA 

OOOOID 02 

OOOOIF OC 

OOOOIF 

COOOIF C2E2D340C4C1E3C1 

000027 

000027 08 

000028 62 
OOOOOO 



10+fiOl 
11+IHRRl 



TESTRAN MODULE TC DUMP 

CSECT . 

EXTRN BACK 

EXTRN DRIVER 

EXTRN A 

ENTRY GOl 

USING S,5 



S AND A 



TEST 



OCOOOO 
000028 
000028 
000028 06 



18 + 


DC 


19+ 


DC 


20+IHBSl 


DC 


21+GO 


CSECT 


22 * 


AFTER 


23 


TEST 


24 




25+GGl 


CSECT 


26+ 


ORG 


27+IHBR2 


EOU 


28+ 


DC 


29+ 


DC 


30+ 


DC 


31 + 


DC 


32 + 


DC 


33+IHBS2 


OC 


34+GO 


CSECT 


35 * 


THE Fl 


36 


DUMP 


37 




38+GOl 


CSECT 


39+ 


CRG 


40+1 HBR3 


EflU 


41 + 


DC 


42+ 


DC 


43 + 


DC 


44+IHBY3 


EOU 


45+ 


DC 


46+IHBZ3 


EOU 


47 + 


DC 


48+IHBS3 


DC 


49+GO 


CSECT 


50 


DUMP 


51 




52+GCl 


CSECT 


53+ 


ORG 


54+IHBR4 


EOU 



TESTRAN POINT IN BSL 

ENTRY POINT TO BSL PGM 
NACE OF BSL VARAIABLE IN BSL 
ENTRY POINT TO TESTRAN CSECT 
S,5 PTR TO DSECT TO DESCRIBE STRUCTURE S 
0PEN.0RIVER,BSLCUT,L0AD.MAXP=5 0,MAXE=96, SELECT=1 
*,*** IEGN04* - THIS MACRO ESTABLISHES CSECT GOl 

, TESTRAN CSECT 
49 SVC WITH START SYMBOL 
ALK IHBSl-IHBRl) LENGTH 
AL3(0RIVER) ENTRY POINT 
CL8' BSLCUT' IDENTIFIER 
AIL11128) SELECT CODE 
AL2(50) MAXIMUM PAGES 
AL2(96) MAX EXECS 
ALK 188) FLAG BYTE 
ALKO) FLAG BYTE PART 2 
X'62' ENTRY END CODE 
. PROBLEM PROGRAM CSECT 
AFTER EXECUTING THE TEST OPEN CONTROL GOES TO DRIVER 

AT, BACK WHEN CCNTROL REACHES LABEL BACK THEN DO 
*.*** IEGM09* - MACRO NUMBER 1 IN GOl 

, TESTRAN CSECT 
♦-1 ORG OVER PREVIOUS END 

* NAME THE FIRST BYTE 
X<02' TYPE 
ALl(l) IDEKT 
AL1(IHBS2-IHBR2) LENGTH 
AL3(BACK) LOCATION 
ALl(l) FLAG BYTE 
K'62' ENTRY END CODE 

, PROBLEM PROGRAM CSECT 
THE FOLLOWING TESTRAN STATEMENTS 
COMMENT, 'BSL DATA' 
*,**♦ IEGM09* - MACRO NUMBER 2 IN GOl 

, TESTRAN CSECT 
♦'-I ORG OVER LAST END ENTRY 

* NAME THE FIRST BYTE 
X'lA' TYPE 
ALK 2) I DENT 
ALK IHBS3-IHBR3) LENGTH 

* TO COMPUTE CCMMENT LENGTH 
C'BSiL DATA' LAST OF COMMENT 

* TO COMPUTE COMMENT LENGTH 
ALKIHBZ3-IHBY3) FLAG BYTE 
X'62' ENTRY END CODE 

, PROBLEr PROGRAM CSECT 
DATA,S,S+24,DATAM=X,NAME=S,DSECT=(S,2) 
*.**♦ IEGM09* - MACRO NUMBER 3 IN GOl 

. TESTRAN CSECT 
*-l ORG OVER LAST END ENTRY 

* NAME THE FIRST BYTE 
X'06' TYPE 
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•Example 7. Use of OS TESTRAN (Part 3 of 17) 



000000 



70+IHBS4 


DC 


71+GO 


CSECT 


7? * 


DUMPS 


Ti 


DUMP 


Tt 




75+r,01 


CSECT 


76+ 


ORG 


77+IHBR5 


EOU 



PAGE 2 

LCC ORJFCT CODE ADDRl ADDR2 STMT SOURCE STATEMENT F15APR68 3/28/69 

00002<5 03 56+ DC ALIO) IDENT 

G0002A 12 57+ DC AL 1 ( IHBS4- IHBR'i ) LENGTH 

OOOOPR 20 58+ OC X'20' A FIELD OR BYTE 

00002r 5000 59+ DC SL2(S+0) 

nOOO?E 20 60+ DC X'20' A FIELD OR BYTE 

00002F 5018 61+ DC SL2(S+24+01 

000031 01 62+ DC ALl(l) OATAM FO FIELD 

000032 01 63+ DC ALl(l) LENGTH OF NAME FIELD 

000033 E2 b't* DC C'S' NAME FIELD 

000034 01 65+ CC ALUl) LENGTH OF DSECT NAME 

000035 02 66+ DC AL1(2) DSECT REPEAT COUNT 

000036 5000 67+ DC SL2(S) RASE AND DISPLACEMENT 

000038 E2 68+ DC C'S" DSECT NAME 

000039 2C 69+ DC AL1(44) FLAG BYTE 
00003A 62 70+IHBS4 DC X'62< ENTRY END CODE 
000000 71+GO CSECT , PROBLEM PROGRAM CSECT 

DUMPS STRUCTURE IN HEX 

DATA.A,A+60iDATAM=CL10,NAME=A 

*,*** IEGM09* -- MACRO NUMBER 4 IN GO 1 

OCOOOO 75+GOl CSECT , TESTRAN CSECT 

0n003A 76+ ORG *- 1 ORG CVER LAST END ENTRY 

00003A 77+IHBR5 EOU + NAME THE FIRST BYTE 

00003A 06 78+ DC X ■ 06 ■ TYPE 

00003B 04 79+ DC ALI(4) IDENT 

OOOOSr 11 80+ DC AL1( IHBS5-IHBR5) LENGTH 

00003D 10 81+ DC X'lO' A FLD OR BYTE 

00003E 000000 82+ DC AL3(A+0) A FIELD AL BYTES 

000041 10 83+ DC X'lO' A FLD CR BYTE 

000042 00003r 84+ CC AL3(A+60+0) A FIELD AL BYTES 

000045 00 85+ DC ALKOl OATAM FO FIELD 

000046 OOOA 86+ DC AL2(10) DATAM L FIELD 
OC0048 01 87+ OC ALl(l) LENGTH CF NAME FIELD 

000049 ri 88+ DC C'A' NAME FIELD 
00004A 38 89+ DC AL1(56) FLAG BYTE 
00004R 62 90+IHBS5 DC X'62' ENTRY END CODE 
OCOOOO 91+GC CSECT ■ PROBLEM PROGRAM CSECT 

92 * DUMPS ARRAY A IN CHARACTER 

93 DUMP PANEL, DATAM^X DUMPS REGISTERS 

94 *,♦** IEGM09* - MACRO NUMBER 5 IN GDI 
000000 95+GOl CSECT , TESTRAN CSECT 
00004E 96+ ORG *- 1 ORG CVER LAST END ENTRY 
00004B 97+IHBR6 EOU * NAME THE FIRST BYTE 
00004B 16 98+ OC X'16' TYPE 
0O004r 05 99+ DC AL1(5) IDENT 
00004D 06 100+ DC AL 1( I HBS6- I HBR6) LENGTH 
00004E 01 101+ DC ALUll DATAM FO FIELD 
0Q004F 20 102+ DC AL1(32) FLAG BYTE 

000050 00 103+ DC ALKO) FLAG BYTE PART 2 

000051 62 104+IHBS6 DC X'62' ENTRY END CODE 
OROOOO 105+GO CSECT , PROBLEM PROGRAM CSECT 



95+GOl 


CSECT 


96+ 


ORG 


97+IHBR6 


EOU 


98+ 


OC 


99+ 


DC 


100+ 


DC 


101+ 


DC 


102 + 


DC 


103 + 


DC 


104+IHBS6 


DC 


105+GO 


CSECT 


106 


GO 


107 




108+GCl 


CSECT 


109+ 


ORG 


110+IHBR7 


EOU 



BACK RETURN TO CONTINUE EXECUTION CF DRIVER 

'** IEGM09* - MACRO NUMBER 6 IN GOl 
TESTRAN CSECT 



000051 109+ ORG *-l ORG CVER LAST END ENTRY 

000051 110+IHBR7 EOU * SET UP NAME FCR LENGTH 
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• Example 7. Use of OS TESTRAN (Part H of 17) 



LCC 


OPJECT 


CODE 


ADORl 


ACDR2 


STMT SOU 


000051 


3F 








U1 + 


000052 


06 








112+ 


000053 


03 








113+ 


00005A 


62 








114+IHBS7 


OCOOOO 










115+00 


000000 










116 


000000 










117 S 


000000 










118 D76 


cooooo 










119 



PAGE 3 

SOURCE STATEMENT F15APR68 3/28/69 

X'3E' TYPE 

: AL1(6) lOENT 

:, AH(IHBS7-IHBR7) LENGTH 

; X'62' ENTRY END CODE 
SECT . PROBLEM PROGRAM CSECT 

5 OF 
SECT 

5 6F'0' STRUCTURE DESCRIPTION 
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•Example 7. Use of OS TESTRAN (Part 5 of 17) 



PASSED 

PASSED 

PASSED 

SYSOUT 

DELETED 

DELETED 

DELETED 



IFF285r rMP? 

IFFP85I VOL SER NOS= XR157 . 

IEF7S5I SYStS087.T000136.RPC01. A.LOADSET 

IFF285I VOL SFR NOS= 231100. 

1FFPR5I SYSl.MACl IR 

IFF?fi5t VOL SER MOS= SYSRS3. 

TFF?85T SYSOUT 

(FFP85I VOL SFP NOS= T77439. 

TFF785I SYS(^';0a7.T00ai36.RP001. A.LTl 

rEF?85I VOL SER NQS= 111111. 

I FFP8 5I SYSfc<3n87.T000136.RP001. A.LT2 

TFF785I Vni SER NaS= XRZ31 . 

TEF28 5I SYS69087.T000136.RP001. A.UT3 

IEF2P5I VOL SER NOS=: X8157 . 

//STEPA FXFC RSIAIG,PARM.STEP2='TEST,L0AD'.PAR>'.LKE0='TEST' 

//STFPl FXFC PPM^RSL 

//SYSOUT DD SYSnUT=A 

//SYSUTl CD CSNAME = Er,AT, UNIT=2311,DISP = (NEW, DELETE) , 

// SPACE=(CYL,( 2, 1) I 

//SYSUT2 OD DSNAME=f.RSLr,0.UNHT=23U,DISP=(NEW, PASS) . 

// SPArE=(CYL,( 3, 1) ) 

//SYSUT3 DD DSN4ME=£UT3,UNIT=2311 ,DISP=(NEW, DELETE) ,SPACE=(CYL, (3,1) ) 

//SYSPUNCH DD UN 17=25^,0-2 

//STFPl. SYSIN DC * 

IFF236I ALLOC. FOR A STEPl STEPA 

IFF237I JORLIR ON 291 

IFF237I SYSUTl ON 190 

IFF237I SYSUT2 ON 191 

IFF237I SYSUT3 ON 291 

IEF237I SYSPUNCH ON 000 

IEF237I SYS IN ON OOC 



00000009 

00000010 
XOOOOOOll 

00000012 
X00000013 

00000014 

00000015 
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•Example 7. Use of OS TESTRAN (Part 6 of 17) 



BSL/ELEVFN r'AY6<3 PRnCECURE TO DEMONSTRATE USE CF TESTRAN WITH PEL P 

0001 /****♦******«******♦****«***********♦»***********+********♦♦*********/ 
/* */ 
/♦ THIS PROCEDURE DECLARES AN AUTOMATIC AND A STATIC AREA AND GIVES*/ 
/♦VALUES TC EACH AREA. THE AREAS ARE THEN CUMPED BY TESTRAN AT THE */ 
/♦STATEMENT LABELED 'BACK'. */ 
/♦ */ 
/:((** + ****♦*«* **«* + =**♦***♦****♦*♦***♦****** + *'!'**********♦*******♦*****/ 

DRIVER: /*MAIN ENTRY POINT*/ 

PROC OPTIDNS( REENTRANT) ; 

0002 DCL /*AUTPMATIC STRUCTURE TO BE DUMPED BY TESTRAN*/ 

/♦STRUCTURE NAME*/ 
/*ARBITRARY ELEMENT USED AS AN 

EXAMPLE*/ 
LN PTR(8), /*ARBITRARY ELEMENT USED AS AN 

EXAyPLE*/ 
DIT PTR(8), /*ARBITRARY ELEMENT USED AS AN 

EXAMPLE*/ 
OD PTR(8), /*ARBITRARY ELEMENT USED AS AN 

EXAMPLE*/ 
LOC PTROl), /*ARPITRARY ELEMENT USED AS AN 

EXAMPLE*/ 
DVS FIXEDOl), /*ARBITRARY ELEMENT USED AS AN 

EXAMPLE*/ 
DlfTOFF PTR(I6), /*ARBITRARY ELEMENT USED AS AN 

EXAMPLE*/ 
MOFF PTR116). /*ARBITRARY ELEMENT USED AS AN 

EXAMPLE*/ 
SIZEOFF FIXEDOl), /*ARBITRARY ELEMENT USED AS AN 

EXAMPLE*/ 
BOUNDT PTR(31); /*ARBITRARY ELEMENT USED AS AN 

EXAMPLE*/ 
:AL EXTERNAL; /*TESTRAN TEST POINT*/ 
STATIC EXT INIT( (6) • AAAAAAAAAA" ); /*STATIC 

ARRAY TO BE DUMPED BY 

TESTRAN*/ 
: /* POINTER TO S*/ 

/*GIVE ELEMENT A VALUE*/ 

; /*GIVE ELEMENT A VALUE*/ 

/*GIVE ELEMENT A VALUE*/ 

/♦GIVE ELEMENT A VALUE*/ 

/*GIVE ELEMENT A VALUE*/ 

/*GIVE ELEMENT A VALUE*/ 

/*GIVE ELEMENT A VALUE*/ 

/*GIVE ELEMENT A VALUE*/ 

/*GIVE ELEMENT A VALUE*/ 

/♦GIVE ELEMENT A VALUE*/ 

/♦GIVE ELEMENT A VALUE*/ 

/♦GIVE ELEMENT A VALUE*/ 

/♦GIVE ELEMENT A VALUE*/ 

/♦GIVE ELEMENT A VALUED/ 

/♦GIVE ELEMENT A VALUE*/ 

/*G!VE ELEMENT A VALUE*/ 

/*GIVE ELEMENT A VALUE*/ 

/*GIVE ELEMENT A VALUE*/ 



0003 


DCL BACK LABEL LC 


OOO't 


DCL A(6) CHAR(IO) 


0005 


DCL R5 REG(5) PTR 


0006 






FLAG( 1)=' OOOOOOIO'B 


0007 


FLAG(2)='00001111'B 


OOOR 


LN(1)=0! 


0C0<3 


LN(2)=0; 


0010 


niT(i)=0: 


0011 


DIT(2)=0; 


0012 


nD(l)=2: 


0013 


DD( 2)=3: 


0014 


LOC(l)=l: 


0015 


L0C(2)=3; 


0016 


DVS(l)=5i 


0017 


DVS(2)=7: 


OOIB 


DICTDFF(1)=0; 


OOl? 


DICTDFF(2)=0: 


0020 


MnFF(l)=4: 


0021 


M0FF(2)=A; 


0022 


SIZEaFF(l)=0: 


0023 


SIZEDFF(2)=0! 
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• Example 7. Use of OS TESTRAN (Part 7 of 17) 
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PSL/ELFVFN MiY69 PROCEDURE TO DEMONSTRATE USE OF TESTRAN WITH BSL 



00?^ 




BnuNDT( l)=o: 


0025 




ROUNDT(2)=0: 


0026 




RFSTRICT( 51 : 


0027 




TIMF-2S 


0028 


Ll: 


/*SET REfilSTER 5*/ 
R5=A00R(S( 11 ) ! 


0029 


BACK : 


/*TAKF TESTRAN DUMP*/ 
TIME=l; 


0030 




END DRIVER; 



/*GIVE ELEMENT A VALUE*/ 
/♦GIVE ELEMENT A VALUE*/ 
/*REGISTER 5 POINTS TO S*/ 
/*SET TIME*/ 

/♦TESTRAN POINTER TO S*/ 

/♦RESET TIME*/ 

/♦RETURN TO CALLING PROC- END OF 
PROC*/ 
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• Example 7. Use of OS TESTRAN (Part 8 of 17) 



RSL/ELFVFN MAY69 PROCEDURE TO DEMONSTRATE USE OF TESTRAN WITH BSL PAGE 003 

CCL'D IN NAME ATTRIBUTE ANC CROSS REFERENCE TABLE 

A A (6). STATIC. LOCAL, CHAR ACTER ( 10 ) , EXTERNAL, BOUNDARY( BYTE, 1 ) 

3 BACK STATIC, LOCAL, LABEL, EXTERNAL 

2 BOUNDT IN S, POINTEROl), INTERNAL, BOUNDARY (WORD, 1 ) 

ZA, 25 

2 CICTOFF IN S, P0INTER(16), INTERNAL, BCUNDARY ( HWORD, 1 ) 

1, 6 , 19 

2 DIT IN S, P0INTER(8), INTERNAL. BCUNDARY ( BYT E, 1) 

IC, 11 

1 DRIVER STATIC, LOCAL, ENTRY, EXTERNAL 

1. 30 

2 DVS IN S, FIXEDOl), INTERNAL, BOUNDARY ( WORD , 1 ) 

16, 17 

2 FLAG IN S, BIT(8I, INTERNAL, BOUNDARY ( B IT ) 

6, 7 

■? LN IN S, P0INTER(8), INTERNAL, BOUNDARY ( BYT E, 1 ) 

8, 9 

2 LOC IN S, POINTEROl), INTERNAL, BCUNDARY ( WORD , 1 1 

1.A, 15 

28 LI STATIC, LOCAL, LABEL, INTiERNAL 

2 8 

2 MOFF IN S, P0INTER(16t, INTERNAL, BCUNDARY ( HWORO, 1 ) 

2C, 21 

2 no IN S, P0INTER(8), INTERNAiL, BOUNDARY ( BYT E, 1 ) 

12, 13 

5 R5 REGISTER(5), POINTEROl), INTERNAL, BCUNDARY( WORD, 1 ) 

2 8 

2 S STRUCTURE, (2), AUTOMATIC, CHAR ACTER ( 24) , INTERNAL, BOUNDARY ( WORD, 1 ) 

28 

? SIZEOFF IN S, FIXEDOl), INTERNAL, BCUAC ARY( WCRO, 1 ) 

22, 23 

27* TIME ALTOMATIC, FIXEDOl), INTERNAL, BCUNDARY (WORD, 1) 

27. 29 

♦** PRDC. DRIVER HAD NO ERRORS 
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• Example 7, Use of OS TESTRAN (Part 9 of 17) 



rFF2fl5r r.HP2 passed 

IFF^S";! VOL SER NOS= XB157 . 

IEF?B'5I SYSnUT SYSCUT 

IFFP85I VOL SFR NOS= 177439. 

IEF285I SYS6';087.T000n6.RP001.A.CAT DELETED 

IFF?R5r VOL SFR NOS= 231100. 

TFF785I SYSfcSC87.T000136.RP001.A.BSLG0 PASSED 

IFF?8'5[ VnL SER Nas= XB231 . 

IFF2R5I SYS6q087.TOOC136.RP001. A.LT3 DELETED 

IEF285r VOL SER NaS= XB157 . 

//STEP2 EXEC PGM=IEUASM,CnNO=( q.LT.STEPl) .PARN='LCAD' 00000016 

//SYSGO DD DSNANE=£10A0SET,SPACE=(80,( 200,50) ) ,DISP=(MOD,PASS) , X00000017 

// UNIT=2311 OOOOOOia 

//SYSPUNCH CR UNIT=2540-2 00000019 

//SYSPRTNT CD SYSnLJT=A 00000020 

//SYSUTl CD DSNAME=fiDOG, UNIT=23I1,CISP=(NEW, DELETE) . X00000021 

// SPACE=(CYL.(3, 1) ) 00000022 

//SYSUT2 CD DSNAME=£F0G.UNIT=2311,DISP=(NEW,0ELETE) , X00000023 

// SPACE=(CYL,( 3, 1) ) 00000024 

//SYSUT3 CD DSNAME=£MnG. UNIT=2311.DISP=(NEW, DELETE) , X000O0025 

// SPACE=(CYL,( 3, 1) I 00000026 

//SYSINI DD DSNAME=*. STEP1.SYSLT2.DISP = (0LD, DELETE ) ,UNIT = 23U 00000027 

//STEP2.SYSLT R DD DSNAME=SYS1 .MACH B ■ UNIT =231 1 .V0LUNE = SER = SYSRS3, X 

// DISP=(OLD.PASS) 

tEF236I ALLOC. FOR A STEP2 STEPA 

tFF?27-I JOPLIB ON 291 

1FF237I SYSfiO ON ISO 

IFFP37I SYSPUNCH ON OOD 

IFF237I SYSUTl ON l";! 

TEF237I SYSUT2 ON ?90 

TEF237I SYSUT3 ON 191 

rFF237T SYSIN ON 191 

IEF237T SYSLIR ON 290 
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8 


♦ /♦***♦+***************♦*♦******* 


9 


♦driver: z+main entry pcint*/ 


10 


* PROC OPTICNS( REENTRANT) ; 


11 


LCLA CT.SSPN 


12 


.aOOl ANOP 


13 


DRIVER CSECT . 


14 


STM 3E,3C,12(S)D) 


15 


BALR aB.O 


16 


SiPSTART DS OH 
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Example 7. Use of OS TESTRAN (Part 10 of 17) 



LCr. ORJECT CODE ADORl ADOR 2 STMT SOURCE STATEMENT F15APR68 3/28/69 

1 ICTL 01.71,16 00000 

2 * /:(t**:(<***){(:^)}(*Ji<**#*******:((*****!((***:fr***+****«*********************>l<**** 00010 

3 * /* * 00020 

4 * /* THIS PROCEDURE DECLARES AN AUTOMATIC AND A STATIC AREA AND GIVES* 00030 

5 * /*VALUES TO EACH AREA. THE AREAS ARE THEN DUMPED BY TESTRAN AT THE * 00040 

6 * /*STATEMENT LABELED 'BACK'. * 00050 

7 * /* * 00060 

*c********#>t!>;t*:((>[{>)t**:i{e.^* + *#**«******# 00070 

0008C 
00090 

0001 00100 

0001 00110 

OOOCOO 13 DRIVER CSECT , 0001 00120 

000000 90EC DOOC COOOC 14 STM 3E.3C, 12(30) 0001 00130 

000004 05RO 15 BALR 38.0 0001 00140 

000006 16 3PSTART DS OH 0001 00150 

ClOOOOe 17 USING 3PSTART + 00000,aB 0001 00160 

000006 5800 BORA COOCO 18 L SO.SSIZOOl 0001 00170 

19 GETMAIN R.LV=(0) 0001 00180 
COOOOA 4510 R008 OOOOE 20+ BAL l,*+4 INDICATE GETMAIN 
COOOOE OAOA ?1+ SVC 10 ISSUE GETMAIN SVC 

000010 18C1 22 LR aC.31 0001 00190 

000000 23 USING 3DATD+00000, 3C 0001 00200 

000012 D700 C07r C07C 0007C 0C07C 24 XC STEfiPS ( 31 ) ,3TEMPS 0001 00210 

000018 50D0 C0C4 00004 25 ST aD.aSAVOOl+4 0001 00220 

OOOOIC 41F0 COOO OCOOO 26 LA aF.aSAVCOl 0001 00230 

OOOnPO 50F0 DOOR 00008 27 ST 3F.8(0,aD) 0001 00240 

000024 18CF 28 LR 30. aF 0001 00250 

29 * DCL /*AUTOKATIC STRUCTURE TO BE DUMPED BY TESTRAN*/ 00260 

/♦STRUCTURE NAME*/ 00270 

/*ARBITRARY ELEMENT USED AS AN 00280 

EXAMPLE*/ 00290 

2 LN PTRI8), /*ARBITRARY ELEMENT USED AS AN 00300 

EXAMPLE*/ 00310 

2 DIT PTR(8). /*ARBITRARY ELEMENT USED AS AN 00320 

EXAMPLE*/ 00330 

2 OD PTR(8), /*ARBITRARY ELEMENT USED AS AN 00340 

EXAMPLE*/ 00350 

2 LOC PTR(31). /*ARBITRARY ELEMENT USED AS AN 00360 

EXAMPLE*/ 00370 

2 DVS FIXEDOl). /*ARBITRARY ELEMENT USED AS AN 00380 

EXAMPLE*/ 00390 

2 DICTOFF PTR(16). /*ARBITRARY ELEMENT USED AS AN 00400 

EXAMPLE*/ 00410 

2 MCFF PTR(16), Z+ARBITRARY ELEMENT USED AS AN 00420 

EXAMPLE*/ 00430 

2 SIZECFF FIXED(31). /*ARBITRARY ELEMENT USED AS AN 00440 

EXAMPLE*/ 00450 

2 BOUNCT PTRODi /*ARBITRARY ELEMENT USED AS AN 00460 

EXAMPLE*/ 00470 

DCL BACK LABEL LOCAL EXTERNAL; /♦TESTRAN TEST POINT*/ 00480 

DCL A(6) CHAR(IO) STATIC EXT IN IT { ( 6) ' AAA AAAAAAA • ) ; /*STATI 00490 

ARRAY TO BE DUMPED BY 00500 

TESTRAN*/ 00510 

DCL R5 REG(5) PTRi /* POINTER TO S*/ 00520 
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Example 7. Use of OS TESTRAN (Part 11 of 17) 



I re nBJFCT CODE 

000026 9202 C.O'tS 

00002a 920F r.OfO 

00002E IRFF 
000030 42F0 r.049 

000034 42F0 r.Ofcl 

00003R 42F0 C04A 

r0003r 42F0 r,C62 

000040 41F0 000? 
000044 42F0 r.04R 

000048 41F0 0003 
00004r, 42F0 r,063 

C00050 41FC 0001 

oooo';4 50F0 r.04r 

000058 41F0 0C03 

ofloo^r, 50F0 r.064 



OC0070 l.RFF 
000077 40FO r.C54 

000076 4CF0 C.CtC 

00007A 41F0 0004 
00007F 40F0 f.OSt 

000082 40F0 r,C6e 

000086 IPFF 
000088 50F0 0,058 

OOOOPf 50FO C070 

0C0090 50F0 cost 

000094 50F0 C074 



000098 41F0 0002 
00009C 50F0 C078 



ADDRl AC0R2 STMT SOURCE STATEMENT 

56 * 
00048 
00060 





57 


« 


FLAG( 1) ='00000010'B; 




58 




MVI S.B'OOOOOOIO' 




59 


* 


FLAr,(2) = '0000llll'B: 




60 




MVI S+24,B'00001111 




61 


* 


LN( 1)=0: 




62 




SR S)F,aF 


00049 


63 




STC SlF.S + l 




64 


* 


LN(2)=0; 


0C061 


65 




STC 5;F,S+25 




66 


* 


DIT(1)=0; 


0C04A 


67 




STC aF,s+2 




68 


* 


DIT(2)=0: 


00062 


69 




STC S!F.S+26 




70 


* 


00( l)=2: 


00002 


71 




LA aF,2 


0C04B 


72 




STC S)F,S + 3 




73 


* 


00(21=3; 


0C003 


74 




LA 3F,3 


00063 


75 




STC aF,S+27 




76 


* 


LGC(I)=1: 


CCOOl 


77 




LA aF.i 


0004C 


78 




ST aF,S+4 




79 


* 


L CC ( ? ) = 3 ; 


0C003 


80 




LA aF,3 


0C064 


81 




ST aF,S+28 




82 


* 


DVS( 1)=5; 


CC005 


83 




LA aF,5 


0C050 


84 




ST aF,S+8 




85 


* 


DVS( 21=7! 


00007 


86 




LA aF,7 


00068 


87 




ST aF,S+32 




88 


* 


DICTOFF ( 11=0; 




89 




SR SF.fflF 


00054 


90 




STH aF,S+12 




91 


* 


0ICT0FF(2)=0: 


CC06C 


92 




STH £F,S+36 




93 


* 


MOFF( 1)=4; 


00004 


94 




LA fflF,4 


0C056 


95 




STH aF,S+14 




96 


* 


M0FF(2)=4: 


0C06F 


97 




STH aF.S+38 




98 


* 


SIZECFF (1)=0: 




99 




SR aF.aF 


00058 


100 




ST fflF,S+16 




101 


♦ 


SrZE0FF(2)=0; 


0C070 


102 




ST aF,S+40 




103 


* 


BOUNDTI 1)=0; 


coosr. 


104 




ST aF,S+20 




105 


* 


B0UNDT(2)=0; 


00074 


106 




ST SF,S+44 




1C7 


* 


RESTRICT(5) ! 




108 


» 


TIME=2! 


00002 


109 




LA aF,2 


00078 


110 




ST aF.TIME 



/♦GIVE ELEMENT A VALUE*/ 

/*GIV£ ELEMENT A VALUE*/ 

/*GIVE ELEMENT A VALUE*/ 

/*GIVE ELEMENT A VALUE*/ 

/*GIVE ELEMENT A VALUE*/ 

/*GIVE ELEMENT A VALUE*/ 

/*GIVE ELEMENT A VALUE*/ 

/*GIVE ELEMENT A VALUE*/ 

/*GIVE ELEMENT A VALUE*/ 

/*GIVE ELEMENT A VALUE*/ 

/*GIVE ELEMENT A VALUE*/ 

/♦GIVE ELEMENT A VALUE*/ 

/*GIVE ELEMENT A VALUE*/ 

/♦GIVE ELEMENT A VALUE*/ 

/*GIVE ELEMENT A VALUE*/ 

/*GIVE ELEMENT A VALUE*/ 

/♦GIVE ELEMENT A VALUE*/ 

/♦GIVE ELEMENT A VALUE*/ 

/♦GIVE ELEMENT A VALUE*/ 

/♦GIVE ELEMENT A VALUE*/ 

/♦REGISTER 5 POINTS TO S*/ 
/♦SET TIME*/ 



0006 

0007 

0008 
0008 

0009 

0010 

0011 

0012 
0012 

0013 
0013 

0014 
0014 



0018 
0018 



0022 
0022 

0023 

0024 

0025 



0027 
0027 



00530 
00540 
00550 
00560 
00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 
00680 
00690 
00700 
00710 
00720 
00730 
00740 
00750 
00760 
00770 
00780 
00790 
00800 
00810 
00820 
00830 
00840 
00850 
00860 
00870 
00880 
00890 
00900 
00910 
00920 
00930 
00940 
00950 
00960 
00970 
00980 
00990 
01000 
01010 
01020 
01030 
01040 
01050 
01060 
01070 
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• Example 7. Use of OS TESTRAN (Part 12 of 17) 



Lcr. opjECT cnnE addri ador2 stmt source statement 



OOOOAO 4150 C048 



0000A4 41F0 0001 
OOnOAS 50F0 r.078 



OOOOAC 5fiD0 0004 
OOOORO I8ir. 
0000B2 5800 ROBA 

OO00P6 OAOA 

O000B8 "38EC DOOC 

OOOORC 07FE 

OnOORE 

OCOOOO 

000001 

0000? 

000003 

000004 

000005 

00000ft 

000007 

OOOOOR 

000009 

OOOOOA 

OOOOOR 

ooooor 
ooooon 
oooooe 

OOOOOF 

oooor.o 
oooor.o 00 

OOOOr.l 00007D 

oooor.4 

OOOOCfi 

oooor.e 



nooor.a 

oooof.R ricicicicicicici 

roooo5 

OOOOCR 
OOOOCR 
000001 
OCOOOO 
000000 
000048 
000048 
000049 
00004A 
000046 



00001 
0C078 



00004 
OCOCO 



111 *L1: 

112 * 

113 LI 

114 *BACK: 

115 * 

116 BACK 
117 

118 * 

119 * 

120 aELOl 
121 

122 
123 
124 + 
125 
126 

127 aCATAl 

128 SIO 

129 ai 

130 32 

131 33 

132 ffl4 

133 as 

134 36 

135 37 

136 38 

137 S9 

138 3A 

139 aR 

140 ac 

141 3D 

142 3E 

143 aF 
144 

145 asizooi 

3SIZ001 
146 
147 
148 

149 3DATA 
150 
151 
152 A 
153 

154 R5 
155 
156 

157 3L 

158 aCATD 

159 3SAV001 

160 S 

161 FLAG 

162 LN 

163 DIT 

164 OD 



/*SET REGISTER 5*/ 

R5=ADDR(S<1) ) ; 
LA a5,S 

/*TAKE TESTRAN DUMP*/ 

TIME=1 ; 
LA aF.l 
ST aF.TIME 

END DRIVER; 

L 30,4(0.301 
LR ai,3C 

L ao.asizooi 

FREEMAIN R. LV= (0) , A= (1 1 
SVC 10 ISSUE FREEMAIN SVC 
LM aE.aC. 12(30 
15, 3£ 



/♦TESTRAN POINTER TO S*/ 



0028 



/♦RESET TIME*/ 

0029 
0029 

/♦RETURN TO CALLING PROC- END 
PROG*/ 

0030 
0030 
0030 
0030 



ecu 

ECU 



00 



EQUATES FOR REGISTERS 0-15 



15 

OF 

FLl'SSPK' 

FLl'O' 

AL3(30ATEND-aDATD) 

OF 

00 



EOU * 
ENTRY BACK 
ENTRY A 



00006C' AAAAAAAAAA' 

00000005 

aOATA 

00000060C 



EOU 

DSECT 

EOU 

EOU 

EQU 

EOU 

EQU 

EOU 



aOATO+OOOOOOOO 
aDATO+00000072 

s+oooooooo 

S+00000001 
S+00000002 
S+00000003 



6*10 BYTE(S) 



FULLWORC POINTER REGISTER 



72 BYTE(S) DN WORD 
2*24 BYTE(S) ON WORD 
8 BIT(S) 

1 BYTE POINTER 
1 BYTE POINTER 
1 BYTE POINTER 



01080 
01090 
01100 
OHIO 
01120 
01130 
01140 
01150 
01160 
01170 
01180 
01190 
01200 

01210 
01220 
01230 
01240 
01250 
01260 
01270 
01200 
01290 
01300 
01310 
01320 
01330 
01340 
01350 
01360 
01370 
01380 
01390 
01400 
01410 

01420 
01430 
01440 
01450 
01460 
01470 
01480 
01490 
01500 
01510 
01520 
01530 
01540 
01550 
01560 
01570 
01580 
01590 
01600 
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• Example 7. Use of OS TESTRAN (Part 13 of 17) 



L.rr npjFCT CnnE ADDRI ALDR2 stmt source statement F15APR68 3/28/69 

OO0n4C 165 LGC EOU S + OOOOOOO^i FULLWORD POINTER 01610 

OC0050 166 DVS FOU S+00000008 FULLWORD INTEGER 01620 

OnOn'^4 167 DICTOFF FQU S + 00000012 HALFWORC POINTER 01630 

nnoo';6 i(-8 mcff sou s+ooooooi^ halfword pointer oi64o 

n0005P 169 SIZEOFF EOl] S + 00000016 FULLWORD INTEGER 01650 

Cn005r. 170 BCUNDT EQU S + 00000020 FULLWORD pointer 01660 

100078 171 time EOU SlDATO+00000120 FULLWORD INTEGER 01670 

nCOOOO 172 OS 00000124C 01680 

n0007r 173 STEMPS OS OF 01690 

oooo7r 174 cs r 01700 

000070 175 ffDATENC EOU * 01710 

nnoooo 176 driver csect , 01720 

000000 177 RND DRIVER 01730 
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• Example 7. Use of OS TESTRAN (Part 14 of 17) 



TFF285I r,MP2 PASSED 

TFF2R5I VOL SFR NaS= XB157 . 

TFF285I SYSft^OBT.TOOOiae.RPOOl. A.LDADSET PASSED 

TEF2P5I VOL SFR NOS= 231100. 

IEF?85I SYS6S087.T000136.RP001. A.R0000018 DELETED 

IEF2P5I VOL SFR NOS= 

IFF?a5I SYSOLT SYSOUT 

IEF?fl5I VOL SFR NOS= T77439. 

IFF2R5I SYS69087.T000136.RP001.A.DOG DELETED 

IEF285I VOL SFR NOS= XB231 . 

IFF285T SYS69087.T000136.RP001., A.FOG DELETED 

IFF285T VOL SER NOS= SYSRS3. 

IEF286I SYS6';087.T000136.RPOai., A.MOR DEILETED 

IEF2851 VOL SFR NOS= XR231 . 

TEF285I SYS69087.T000136.RP001., A.BSLGO DELETED 

IEF285I VOL SER NOS= XB291 . 

IEF2a5I SYSl.MACLIR PASSED 

IFF285T VOL SER NOS= SYSRS3. 

//LKEC EXFr, PGM = LINKEDTT,C0ND=:('3.LT. STEP2) .PARM=>XREF, LIST, LET • 00000028 

//SYSLIB CD CSNAME=BSLLIB.UNIT=2311,VCLUME=SER=111111,DISP=(0LD,KEEP) 00000029 

//SYSPRINT DC SYSOUT=A 00000030 

//SYSLIN DD CSNAME=f.Lr&DSET,DISP=(OLD,DELETE) 00000031 

// DH DCNAME=SYSIN 00000032 

//SYSUTl DD DSNAME=SCAT,UNIT=231 I, DISP=( NEW. DELETE) , X00000033 

// SPACE=(CYL.( 2. 1) ) 00000034 

//SYSIMOD CO DSNAME=eGOSET(BSLGO) ,SPACE=( 1024, (50,20, 1) ) ,UNIT = 2311. X00000035 

// DISP=(MOD.PASS) 00000036 

//SYSABENC DD SYSnUT=A 00000037 

IEF23AI ALLOC. FOR A LKFD STEPA 

TFF237T JDPLIB ON 291 

IEF237I SYSI TP ON 192 

IEF237I SYSLIN ON 190 

IFF237I SYSUTl ON 291 

IFF237I SYSLMOD ON 290 
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• Example 7. Use of OS TESTRAN (Part 15 of 17) 



IFF?P5I r.MP? 

TFF2R5I VOL SEP NnS= XB157 . 

TEFJfi5I RSLLIB 

IFF2fl5I VOL SFR NQS= UHll. 

TFF285I SVSnUT SY! 

IEF285I VOL SER NOS= 777139. 

ieF?P5I SYS6S0R7.T000136.RPC01. A.LOADSET DEI 

IFF2P5r VOL SFR NOS= 231100. 

TFF2R5I SYS6';OR7.T000136.RP001. A.CAT DEI 

IFF285I VOL SER NOS= XB157 . 

tEF2PSI SYSfc';aa7.T00013t.RPC01. A.GOSET PA! 

IEF285I VOL SER NOS= SYSRS3. 

//GO EXFf PGM=*.LKEO.SYSLMnD,CnNO=(q.LT,LKED) 

//SYSABEND CD SYSnUT=A 

//RSLDIJT DD SYSnUT = A 

//BSLPIINCP CC UNIT = 25'iO-2 

//GO.SYSTFST DC DSNAME=eBEGf E . UNI T = 23 11 .0 I SP= ( NEW , PASS ) i 

// SPACF=(CYL,( 2,1) ) .DCB=(RECFM=F,BLKSIZE=80) 

IEF236I ALLOC. FOR A GO STEPA 

IEF237I JOBLIB ON 291 

IEF237I PGM=*.DD CN 290 

IFF237T BSl PUNCH ON OOD 

tEF2371 SYSTFST ON 190 



PASSED 
KEPT 



00000038 
00000039 
00000040 
00000041 
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•Example 7. Use of OS TESTRAN (Part 16 of 17) 



IEF?85I r.MP2 PASSED 

IEF?fi5T VOL SFR NOS= XB157 . 

IFF285I SYS69fia7.TC100136.PP001.A.G0SET PASSED 

IFF?fl5I VOL SEP NOS= SYSRS3. 

TEF2P5I SYS69087.T000136.RP001.A.BEGME PASSED 

IFF2B5T VOL SFR NaS= 23HC0. 

//STEPC FXEC PfiM=IEGTTEDT.PARH='TlP7' 

//SYSTEST CD DSNAME=EREGME . UNI T=2-3U . 01 SP = ( CLD , DELETE ) i 

// nCB=(RECFM=F.BLKSIZE=SO) 

//SYSUTl DU DSNAME=£LNKWCRK,UNIT = 2311,DISP = (NEti, DELETE). 

// SPAr,E=(TRK,( 15.1011 

//SYSPRINT DD SYSOUT=A 

//SYSIN DD DUMMY 

IEF236I ALLOC. FOR A STEPC 

IEF237I JOPLIB ON 291 

IFF237I SYSTFST ON 190 

IFF237T SYSUTl ON 190 
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•Example 7. Use of OS TESTRAN (Part 17 of 17) 



TFSTRAN OUTPUT DATE 69/087 TIME 00/H 



1 CACRO IC 000, TEST OPEN , I OENT I F ICAT I CN BSLOUT 
MAXIMUM NUHRFR OF PAGES 50, MAXIMUM NUMBER CIF STATEMENTS 

AT LOCATIOM OlfcllC FNTER 



1) MACRO in 003, DUMP DATA STARTING IN SECTION S 

S 
mFFirO 02000002 00000001 C00CC0C5 C0000004 00000000 00000000 0F000003 00000003 00000007 00000004 00000000 00000000 

1) KACRO ID CC4, DUMP DATA 

A 
OlhlAO AAAAAAAAAA AAAAAAAAAA AAAAAAAAAA AAAAAAAAAA AAAAAAAAAA AAAAAAAAAA 

1) MACRP IC OC?, CUMP PANEL 

G'OO' 0000007D G'Cl' 0003FR88 G'02' OOOOOOAO G'03< 00000181 G'04" OO00S5C8 G'OS' 0003FbD0 G'06' 000074D8 G'07' 00000080 

G'C8' 00000078 G'09' 6001CFO? G'lC 0003FED8 GUI' 7001607E G'12' 0003FB88 G<13' 0003FB88 G'lA' 00007528 G'15' 00000002 

PSW FF 1 5 0026 4 01611E CC = FIX POINT CVERFLOW OFF DEC CVERFLCVl OFF EXP UNDERFLOW OFF SIGNIFICANCE OFF 

F'O" 00000000 00000000 F'2' OOOOOCCO 00000000 F'4' 00000000 00000000 F'6' 00000000 00000000 

*** 1EGEC7 END OF TESTRAN EDIT CC00C05 STATEMENTS PROCESSED 
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Appendix D: Example of Dynamic Invocation of 
Conipiler 



Example 8 is an example of how the BSL compiler can be invoked during 
execution of a problem program. 



• Example 8. Use of Dynamic Invocation of Compiler (Part 1 of 10) 



/* */ 

/* THIS POUTTNE ILLUSTRATES THE USE OF DYNAMIC INVOCATION OF THE */ 

/*BSL r.CMPILER */ 

/* */ 

PCnNAMES:/*C«IK ENTRY PCINT*/ 
PROCEDURE; 
COO? DCL /^PARAMETER LIST OF OPTIONS*/ 

1 OPTIONS eCY(W0RD,3). /*LIST NAME*/ 

2 CTR FIXEDdS) IIMITOS), /*NUMBER CE CHARS IN 

SOPTIONS STRING*/ 
2 SOPTIONS CHAR(35). /*OPTIONS ARE WRITTEN EXACTLY 
AS THEY WOULD BE IN THE PARy 
FIELD OF THE EXEC CARD*/ 
3 SIZE CFAR(8) IMT( 'SIZE=^0, ' ) , /*SIZE OF THE 

COMPILER 
DICTIONARY*/ 
3 SCRMGIN CFAR(IS) IN I T ( ' SORMG IN= ( 001 , 072) , ' ) , 

/*MAPGINS TO BE READ*/ 
3 CnNCFAR CHAR(9) I N I T ( ■ C0NCHAR=51 ' ) ! /*CHAR IN FIRST 

COLUMN OF 
COMPI LtR CNTL 
STATENENTS*/ 

0003 DCL /♦PARAMETER LIST OF DDNAMES*/ 

1 CCKAMES BCY(W0RD,3), /*NAME OF LIST*/ 

2 CCTR FIXEC(15) INIT(fc4), /*NUMBER OF CHARS IN 

SDDNAMES STRING*/ 
2 SCDNAMES ChAR(6^), /*N0 ALTERNATE DDNAMES FOR 

FIRST 4 IN STANDARD LIST*/ 
3 ANYCC CFAR(32), /*MLST USE STANDARD NAMES*/ 

3 CSYSIN CHAR(8I IN I T ( ' SCSV SIN ' ) . /*INPUT TO 

COMPILER*/ 
3 DSYSOUT CHAR(8) IN IT ( • SCSVSOUT • ) . /*OUTPUT FOR 

PRINTER*/ 
3 DSYSPNCF CFAR(P) IN IT ( ■ COOOOOCCOOOOOOOO ' X ) , 
/*N0 ALTERNATE DDNAME FCR 
SYSPUNCH*/ 
3 DSYSUTl CHAR(8) IN I T( ■ SC S YSLT 1 ' ) ! /*SCRATCH FILE 

FOR NON- 
INTERSPERSED 
CODE*/ 

0004 GEN (LINK EP= BS L. P ARAM= (OPT IONS, DCIMAM ES ) , VL= 1 ) ; /*L I NKS TO BSL 

COMPILER*/ 

0005 /♦ A CHECK CCULD BE MADE HERE TO CFECK THE RETURN CCDE IN */ 
/* REGISTER 15 ANC TFEN CONTINUE PROCESSING ACCORDING TO */ 
/* THE LEVEL OF SEVERITY OF ERRORS FOUND DURING COMPILATION.*/ 
END PLCNAMES; /*RETURN TO CALLING PROC*/ 
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•Example 8. Use of Dynamic Invocation of Compiler (Part 2 of 10) 

PACE 002 

/ITTRIBUTE ANC CROSS REFERENCE TABLE 

IN SDCNANES. ChARACT ER < 32 ) ■ INTERNAL, BOUNDAR Y( B YTE , I) 

INSCPTICNS. ChARACTEP(S) , INTERNAL, BOUND ARY ( BYTE , 1 ) 

IN rPTIONS. FIXED! 15), INTERNAL. BOUNDAR Y( HWCPD , U 

IN DCNAMES, FIXED(15), INTERNAL, BOUNDAR Y( H^^DRO , 1 I 

STRUCTURE. STATIC, LOCAL, CHAR ACTER ( 66 ) , INTERNAL, 8CUNDARY ( WORD .3 ) 

IN SCCNAMES. CFARACT ER ( 8 ) . INTERNAL, BOUNDARY ( BYTE , 1) 

IN SCCNACES. CFARACTEP(8), INTERNAL. BOUNDAR Y( BYTE . 1) 

IN SLCNAMES. C FAR ACTER ( 8 ) , INTERNAL. BOUNDAR Y( BYTE . 1 ) 

IN SCCNAMES. C FARACTER ( 8 ) . INTERNAL, BOUND ARY ( BYTE .1 ) 

STRUCTURE. STATIC. LOCAL. CHAP ACTER (37 ) , INTERNAL, BOUND ARY ( WCPD ,3 ) 

STATIC, LOCAL, ENTRY, EXTERNAL 
1. 5 

IN CCNAMES. CFARACTFP{6^) , INTERNAL. BOUNDARY ( BYTE . 1 I 

IN SCPTICNS. CFARACTER(8), INTERNAL, BOUNDAR Y( BYTE . 1 ) 

IN OPTIONS, ChARACTER(35), INTERNAL. BOUNDAR Y( BYTE . 1 ) 

IN SCPTICNS. CFARACTER( 18) . INTERNAL. BOUNDARY ( BYTE . 1 ) 

PRCC. PODNANES FAC NC ERRORS 



RSL/FLFVEN KAY69 




DfL'D IN 


NAME 


3 


ANYDD 


2 


CCNCHAP 


2 


CTR 


■=, 


nCTR 


3 


CDNANES 


3 


DSYSIN 


3 


DSYSrUT 


3 


DSYSPNCH 


3 


CSYSUTl 


2 


CPTI CNS 


1 


PDDNAWES 


3 


SDCNANES 


2 


SIZF 


2 


SCPTICNS 


2 


SORfCIN 
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•Example 8. Use of Dynamic Invocation of Compiler (Part 3 of 10) 



LOC OBJECT CCDE 4D0R1 /SCCR2 STKT SCURCE STATEMEMT F15/SPR68 4/01/69 

1 ICTL 01,71,16 00000 

2 * /!(c***«****«***>!(^************>:t***>;<*>)(*****************i{(*****>((********«* 00010 

^ * /* « 00020 

ILLUSTRATES THE LSE OF DYN'AMIC IKVCCATICN CF THE * 00030 

* OOO'iO 

A * /* * 00050 

7 * /;^***;**j[(**>t!**>[())(#:^*:{c>}(*j{(*:(<*:<(«*JO(*«**,:(*»}<********»:'************************ 00060 

8 *PCCNAI'.ES:/*MAIN ENTRY POINT*/ 00070 

9 * PROCEDURE; 00080 

10 LCLA 6T,CSPN 0001 00090 

11 .3001 ANOP 0001 00100 

crcnoo i2 pcckames csect , oooi ooiio 

OCOCCO 90FC DOOC OOOOC 13 STM BE . 5jC , 12 ( 30 ) 0001 0012Q 

CCOOCi 05Bn 11 BALR SR.O 0001 00130 

CC0006 15 SIPSTART CS OH 0001 00140 

000006 16 USING 3P ST ART + CGCOC, SB 0001 00150 

r000C6 5000 BC3E 00044 17 ST aD,aSAV0Cl+4 0001 00160 

CCOOOA 4lFn RC3A 00040 18 LA SF.SSAVOCl 0001 00170 

OCOCOF 50F0 DOOB 00008 19 ST aF«8(0,SD) 0001 00180 

00001? leOF 20 LR 30, SF 0001 00190 

21 * DCL /*PARAMETER LIST OF OPTIONS*/ 00200 

22 * 1 OPTIONS BDY(W0RD,3), /*LI ST NAME*/ 00210 

23 * 2 CTR FIXED(15) INIT(35). /♦NUMBER CF CHARS IN 00220 

24 * SOPTIONS STRING*/ 00230 

25 * 2 SOPTIONS CHAR(35), /*CPTIONS ARE WRITTEN EXACTLY 00240 

26 * AS THEY WOULD BE IN THE PARM 00250 

27 * FltLO OF THE EXEC CARC*/ 00260 

28 * 3 SIZE CHAR(8) I NI T( ' SI ZE =40 , ■ I , /*5IZE OF THE 00270 

29 * COWFILFP 00280 

30 * DICTIONARY*/ 00290 

31 * 3 SORMGIN CHAR(18) I NI T{ • SORMG I N= (001 ,072 ) , • ) , 00300 

32 * /*MARGINS TO BE READ*/ 00310 

33 * 3 CONCFAR CHAR(9) I NI T ( 'C ONCHAR=a ' ) ; /*CHAR IN FIRS 00320 

34 * CCLUMN OF 00330 

35 * COMPILER CNTL 00340 

36 * STATEMENTS*/ 00350 

37 # DCL /*PARAMETER LIST OF DDNAMES*/ 00360 

38 * 1 DDNAMES B0Y(W0RD,3), /*NAME OF LIST*/ 00370 

39 * 2 OCTR FIXED(15) INIT(64), /*NUMBER OF CHARS IN 00380 

40 * SDDNAMES STRING*/ 00390 

41 * 2 SDDNAMES CHAR164), /*N0 ALTERNATE DD^A^ES FOR 00400 

42 * FIRST 4 IN STANDARD LIST*/ 00410 

43 * 3 ANYOD CHAR(32). /*MUST USE STANDARD NAMES*/ 00420 

44 * 3 DSYSIN CHAR(8) I NI T( ' SC SYSI N • ) , /*INPUT TC 00430 

45 * COMPILER*/ 00440 

46 * 3 OSYSOLT CHAR(8) I NI T( • SCSYS CUT' ) , /*CUTPUT FOR 00450 

47 * PRINTER*/ 00460 

48 * 3 DSYSPNCH CHAR(8) I NI T (' 0000000000000000 "X ) , 00470 

49 * /*N0 ALTERNATE DDNAFE FCR 00480 

50 * SYSPUNCH*/ 00490 

51 * 3 DSYSUTl CHAR(8) I NI T( ■ SCSYS UTl ' ) ; /*SCRATCH FILE 00500 

52 * FCR NON- 00510 

53 * INTERSPERSED 00620 

54 * CODE*/ 00530 

55 * GEN (LINK EP=BSL, PARAM= ( OPTI ONS .DDNAMES ) ,VL=1 ); /*LI KKS TO BSL 00540 
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Example 8. Use of Dynamic Invocation of Compiler (Part 4 of 10) 



ORJECT CCDE flDORl ALCR2 STMT SCURCE STATEMENT 



COMPILER*/ 



OROQl.^ 

OCCnl't "iSlO ROIA 

onooip 

CCOCie OOOOGCSA 
0C001C 80 
OCOOin 0000R2 

oroo?n 
ncoozo 

CC0020 ■^6E0 RC2E 
OOOOZ^ 0000002C 
nCnC28 OCCOOCQO 

ocoopc r.2E?r)3^n4n4C4040 

CC0034 0A06 

oooost 



ronO't 58DC D004 
OCOO^i 98Er, DOOC 
OnOC3F 07FE 

ncoo40 
ocooco 
ccocni 
ccnocz 

0C0CC3 

roooc4 
ncnons 
ccooct 
rcncc7 
ccnocfi 
ccocc? 

OCOOfiA 

ncoocR 
f ccocr 
ccoctin 
ncocoE 
ccncoF 

0C0040 

ocno40 

CCOC40 
f,r,00R4 
0C0Q8A 
OCOCfiA 
OrOCPA 0G23 

ococar. 
nroopc 

OCOOar. E2r,'?ESr57EF4F06R 

OCCC<34 

CCC0S4 E2ntn<;D4C7r.9D57E 

0CQCA6 

0000A6 r,3D6D5r,3r.8r,lD97F 

0G0CR2 



57 


LINK 


58 + 


CNDP 


59 + 


BAL 


60 + II-R0002 


EOU 


61 + 


DC 


62 + 


DC 


63 + 


DC 


64+II-B0002A 


EOU 


65 + 


CNOP 


66 + 


RAl 


67 + 


DC 



EP=BSL,PARAV= (OPT I ON S. DONATES). VL = 1 
0. 4 
1, IHB0Q02A LOAD LIST ADOR IN REGl 

AIOPTIONS) PRDB.PROG.PAI?A^ETfcP 
B'lCOOOOOC SET VL SttI TCH BIT 
AL3(CDNAMES) PRCB. PROG. PARAMETER 

0. 4 

15,*+20 LOAD SLP.PARAMLIST ADR 
A(*+8) ADDR OF LP PARAMETER 
DC A(C) DCB ADDRESS PARAMETER LCOA 

DC CLB'BSL' EP PARAMETER 

;VC 6 ISSUE LINK SVC 

JS OH 

/* A CHECK CLULD BL MADE HERE TO CHECK THE RETURN CCDE IN * 

/* REGISTER i; AND THEN CONTINUE PROCESSING ACCCRDING TC * 

/* THE LEVEL OF SEVERITY CF ERRORS FCUND DURING CCMP I L AT ION.* 
END PDDNAMES: /*R£TUP\' TO CALLING PRCC*/ 

0005 
0005 
0005 



00550 
00560 



00004 76 


aELOl 


L 


aD,4(o.ac) 




OOOOC 77 




LM 


aE.ac,i2(5;D) 




78 




BCR 


15, aE 




79 


SCATAl 


FOU 


* 




80 


SO 


ECU 


00 


EQUATES FPR REGI STI 


81 


ai 


EOU 


01 




82 


?2 


FCII 


02 




83 


ff3 


EOU 


03 




84 


S4 


EOU 


04 




85 


a5 


EOU 


05 




86 


516 


EOU 


06 




87 


97 


EOU 


07 




88 


?8 


EOU 


08 




89 


39 


EOU 


09 




90 


?A 


EOU 


10 




91 


SIE 


EOU 


11 




92 


SC 


EOU 


12 




93 


ac 


EOU 


13 




94 


SIE 


ECU 


14 




95 


SIF 


EOU 


15 




96 




DS 


OC 




97 


aCATA 


EOU 


« 




98 


asAvooi 


EOU 


aDATA+OOCCCCCC 


72 BYTE(S) CN l,CRD 


99 


OPTIONS 


EOU 


30ATA+C0C0C074 


37 BYTEIS) CN WORD- 


100 




ORG 


OPTIONS+CCCCCCCC 




101 


CTR 


EOU 


* 


HALFViLRD INTEGER 


102 




CC 


FL2'35' 




103 


SCPTICNS 


ECU 


DPTI0NS+CCC00CC2 


35 BYTE(S) 


104 


SIZE 


EOU 


* 


a BYTE(S) 


105 




CC 


C'SIZE=4C, • 




106 


SCRMGIN 


EOU 


♦ 


18 bYTE(S) 


107 




CC 


C" SORMGIN=( 001,072) 


, ' 


108 


CCNCFAR 


EOU 


* 


9 BYTE(S) 


109 




DC 


C'CONCHAR=a' 




110 


DCNAMES 


EOU 


aCATA+C00CC114 


66 BYTE(S) CN WCRD 



00570 
00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 
00680 
00690 
00700 
00710 
00720 
00730 
00740 
00750 
00760 
00770 
00780 
00790 
00800 
00810 
00820 
00830 
00840 
00850 
00860 
00870 
00880 
00890 
00900 
00910 
00920 
00930 
00940 
00950 
00960 
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• Example 8. Use of Dynamic Invocation of Compiler (Part 5 of 10) 

LnC ORJFCT rCDE /SDORl ALDR? STMT SCURCE STATEMENT 



onocB? 




111 




ORG 


ODNAMES+CCCCOCCC 




0C0CB7 




112 


CCTR 


EOU 


* 


HALFkCRD I 


OCOOR? 


0040 


113 




CC 


FL2'64' 




aoooRA 




114 


SCCNAMES 


EOU 


DDNAMES+C0OO0OC2 


64 BYTE(S) 


0C0CR4 




115 


ANYCC 


EQU 


DDN6MES+C0CCCCC2 


32 BYTE(S) 


roocn4 




116 




ORG 


DDNAMES+CC0CCC34 




f.roon'^ 




117 


DSYSIN 


EOU 


* 


8 BYTE(S) 


ocoon^ 


F2C^E?FaE2C<?D5 


118 




DC 


C'SCSYSIN- 




OCOODR 


40 


119 




DC 


OOOOIC ' 




ccooDr 




120 


nSYSCUT 


EQU 


* 


8 BYTE(S) 


ncoooc 


E2r.3F2F8E?06E4E3 


121 




CC 


C'SCSYSOUT- 




nrooF^ 




12? 


CSYSPNCF 


ECU 


* 


8 BYTE(S) 


ncocF^ 


OOOOOOOOOOCOOOOO 


123 




DC 


X'OOOOOOCCCCCOOCCO' 




OCOCEC 




124 


CSYSUTl 


EOU 


* 


8 BYTE(S) 


onooFC 


F2C3E2EeF2E4E3Fl 


125 




DC 


C'SCSYSUTl- 




ocoo^o 




126 




ORG 


aOATA 




cccc^o 




127 




DS 


oooDoieoc 




OCOOf 4 




12R 


fflTEMPS 


DS 


OF 




OCOOFA 




129 


SICATENC 


EOU 


* 




trooon 




130 




END 


PCCNAMES 
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•Example 8. Use of Dynamic Invocation of Compiler (Part 6 of 10) 



IFf^g'ir Cl/p? PflSSEt 

IFF7P?T VCL SER NC<;= XR157 . 

IFF?e5I SYSd<;C<;i. T00005?.RPn01.S/SCETC.LC«CSET PASSED 

IFF585T VCL SFR NCS= SYSPS3. 

IFF?85I SVSrLT SYSQUT 

TFF2P5I VCL SFR NCS= T77419. 

(FFJR5I SYSe<;C91. 70C005?.RPnoi. S/SCETr.CCG DELETEC 

IFF?P5I VCL SFR NCS= lUlll. 

IEF2a'^I SYSfcSOgi. T000052.RP001. SACETC.FCG OELETEC 

IFF2e5T VCL SFR NCS= 231100. 

IEF285I SYSt^CSl. T0C0052.RP001. S/!C£TC.MCG DELETEC 

IFF2fl?I VCL SFR NCS= SYSPS3. 

IFF2eEI SYS6<5C'51. T000052.RP001.S/iCETC.PSLGn DELETEC 

TFF28'!1 VCL SFR MCS= SYSRS3. 

TFF285T SYSl . ClSCL I P POSSEC 

IFF2a5I VCL SEB NCS= SYSRS3. 

//LKED FXEC PGN = L I NKED I T .CC^ C= ( 9 . LT , ST EP2 ). PaRr= ' XREF . L I ST , L ET ■ 00000028 

//SYSLIR DD nSNfl»'F = PSLLIR.UMT=231l ■VCLU(<E = SER=»H1111. DISP=(nLD.KEEP) 0COOOO2"5 

//SYSPRINT DC SYSrUT=A 00000030 

//SYSLIN DD DSN«I'E=£LC4DSET.C1SP=(CLC.CELETE) 0C0O0O31 

// DD DCNAfE=SYSIK 00000032 

//SYSLTl DD DSNAI'£ = CCAT,IJMT = 2311,CISP=( NEW. DELETE 1, X00000033 

// SPACE=(CYL.(7.in OOOOOOS'i 

//SYSLMDD DD DSN A^'E=£GCS ET ( BSLGD ) ,SP A C E= ( 1021 , ( 50. 20. 1 ) ) , UN I T=23H , X00000035 

// DI SP=( ^CC. PASS ) 00000036 

y/SYSABEK'D DD SYSCLT=A 00000037 

IFF23f.I ALLCC. FCR SACFTC LKED TEST 

IFF237I JCRLIR CN 192 

IFF737T SYSLIR CN 193 

IEF2371 SYSLIN CK 191 

IFF2371 SYSDTl CN 190 

IFF237I SYSL^'CD CN 191 
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Example 8, Use of Dynamic Invocation of Compiler (Part 7 of 10) 



F15APR68 4/01/69 

00970 
00980 
00990 
01000 
01010 
01020 
01030 
01040 
01050 
01060 
01070 
01080 
01090 
01100 
OHIO 
01120 
01130 
01140 
01150 
01160 



CCNTROL SECTI^^ 

NAKF ORIGIN LENGTH 
PDBNAMES 00 F4 



DEFAULT 0PTI0N(5) USED 

CRCSS REFERENCE TABLE 

ENTRY 

NAME LOCATION NAME LOCATION NAME LOCATION NAMg LOCATION 



LCfATICN REFFRS TO SYWBOL IN CONTROL SECTICN 



«**RSLfiO DOES NOT EXIST BUT HAS BEEN ACCEC TO CATA SET 



LOCATION REFERS TO SYMBOL IN CONTROL SECTICN 
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•Example 8. Use of Dynamic Invocation of Compiler (Part 8 of 10) 



IFFZP";! CfP? P^SSEC 

IFFS85I vri SFk m:s= XB157 . 

IFF?P51 BSLI IB KFPT 

TFFJPRI Vni SFR NCS= llllll. 

IFFPP^l SVSri.7 SYSnLT 

IFF?R5I VCL SFR NCS= T77439. 

1FF?P5I .SYSft';091. T000052.RP001. S/SCETC.LCACSFT DELETEC 

IFF2P5T Vru SEP KCS= SYSRS3. 

IEF2P5I SYStc091.T000057.RP001.S4CETC.CAT CELETEC 

IFFPP5I vn SFR NCS= 231100. 

rFF285I SYSt9091. T000052.RF001.SACETC.GCSET PASSED 

ItF2e5I VCL SFP \CS= SYSRS3. 

//(,r FXEC PfiK = «.LKEC. SYSLCCC.CCNC^Cg.LT.LKEC) 00000038 

//SYSARfcND DO SYSCUT=A 00000039 

//bSIOLT on SYSCUT=:A CC000040 

//est PUNCH DO UMT=:2540-2 00000041 

/yr,C. SCSYSLTl on OSKAf E = £CAT,UMT = 2311.CISP=(^EW.DEL ETE), X 

// SPACE=(CYL, (2.H ) 

//c,n. scsYsnuT do syscut = a 
//r,r. srsYSTN dc * 

TEF23fI ALirC. FCR SACETC RC TEST 

TFF237I JCBLIP CK 192 

IFF237T PRK = *.[,D FN 191 

IFF237I RSLPIINCH r^ OOC 

IFF237I SCSYSLTl CN 193 

IFF737I SCSYSIN CN OOC 
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Example 8. Use of Dynamic Invocation of Compiler (Part 9 of 10) 



RSl /FLFVFN fAV69 



/* 

/♦SA^'PLF RCUTINE COMPILEC EY USE OF DYNAMIC INVOCATION OF THE 

/*CCfFILFP 

/* 

/**:(<+*X'**';'«***3**** ************* **************♦***************=< 



/♦STORAGE AREAS*/ 
/♦STORAGE AREAS*/ 
/*SOURC£ STATEMENT*/ 
/*SOIjRCE STATEMENT*/ 
/*SOURCt STATEMENT*/ 
/♦RETURN TO CALLING ROUTINE- 
END OF SAMPLE ROUTINE*/ 





TOCNACES 


:/*ENTFY PCINT*/ 
FPOCECURE: 


0002 




DCL (A.e,C) FIXECOl) 


0003 




r,CL (CE.F) CFARCi): 


0004 




A=B+C: 


0005 




C=B/C: 


0006 




D=E|F: 


0007 




FNC TCCNAMES: 
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•Example 8. Use of Dynamic Invocation of Compiler (Part 10 of 10) 



RSL/FLfVEN MAVfeS 

DCL'n IN N/ICE /ITTRIBUTE ANC CROSS REFERENCE TABLE 

? A- STATIC, LOCAL. FIXEDOl), INTERNAL, BOIjNDAR Y( kClRO , 1 ) 

k 

2 B STATIC, LCCAL, FIXEDOl), INTERNAL, BDUNOARY( VvCRD , 1, ) 

4, 5 

2 C STATIC, LOCAL, FIXEDOl), INTERNAL, BCUNDARV ( VvORD , 1 ) 

4,5,5 

3 STATIC, LCCAL, CI- ARACTER ( 4 ) , INTERNAL, BOljNDARY( B YTt , 1 ) 

6 

3 E STATIC, LCCAL, CF ARACTER ( 4 ) , INTERNAL, BCLNDARY ( BYTt , 1 ) 

6 

3 F STATIC, LCCAL, CHARACTER ( 4 ) , INTERNAL, BOUNDARY! BYTE , 1 ) 

6, 6 

1 TCCNAf'ES STATIC, LCCAL, ENTRY, EXTERNAL 
1, 7 

*** PRCC. TDCNANES FAC NC ERRCRS 
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Appendix E: Diagnostic Messages and Codes 



When an incorrect statement is encountered in your BSL program, the com- 
piler flags the statement and writes a diagnostic message. At the point 
of error, a statement flag is printed in the form: 

*** ERROR message-number **♦ 

Following the attribute and cross-reference table, the related diagnos-* 
tic message is printed in the form: 

statement message message text 
number number 



Message Numbers and Severity Levels 

Each of the compiler's diagnostic messages is numbered in the form 
(M) snn where : 

• M indicates that the error occurred during the compiler's macro 
phase. The absence of an M indicates that the error occurred diiring 
the compile phase. 

• s is an alphabetic character that indicates the severity level of i 
the error that occurred. 

• nn is an integer that numbers the message within its severity group. 

The compiler recognizes four severity levels. These levels and their 
meanings are sumnnarized in Table 11 (for the macro phase) and Table 12 
(for the compile phase). 

Table 11. Severity Levels of Diagnostic Messages (Macro Phase) 
(Part 1 of 2) 

r r T-T 

I Level I Explanation | 
^^ 

is an abbreviation for a macro phase "Warning Message. " This 
prefix indicates that either: 

• The statement had an error that was repaired by the 
compiler's macro phase. 

• The statement is not in error, but it may produce unex- 
pected results when the program is compiled. 

This severity level is intended to draw your attention to 
potential errors. 
. ^^ 

is a abbreviation for a macro phase "Error Message." This 
prefix indicates that the flagged statement is definitely in- 
correct, and compile-time processing of the statement is 
terminated. 



This severity level is used when the error is localized to a 
single statement. Processing continues from the next 
statement. 
L i_ 

(Part 1 of 2) 
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Table 11. Severity Levels of Diagnostic Messages (Macro Phase) 
(Part 2 of 2) 

r T 

j L evel I Expl anat ion 



MS 



is an abbreviation for a macro phase "Serious Error Message." 
This prefix indicates that the flagged statement is definitely 
incorrect. The flagged statement is not processed. 



This severity level is used when the error cannot be localized 
to a single statement and, therefore, the error may affect the 
remaining statements. Processing continues from the next 
statement. 



MD I is an abbreviation for a macro phase "Disastrous Error Mes- 
sage." This prefix indicates an error of the highest severi- 
ty, and processing is terminated at the point of error. 



Table 12. Severity Levels of Diagnostic Messages (Compile Phase) 

r T 

I Level I Explanation 



I + 



W 



h-- 



is an abbreviation for a "Warning Message, 
cates that either: 



This prefix indi- 



• The statement had an error that was repaired by the BSL 
compiler. 

• The statement is not in error, but it may produce unex- 
pected results when the program is executed. 

This severity level is intended to draw your attention to 
potential errors. 



is an abbreviation for an "Error Message." This prefix indi- 
cates that the flagged statement is definitely incorrect. The 
compiler does not generate code for the flagged statement. 



This severity level is used when the error is localized to a 
single statement. Compilation continues from the next state- 
ment, and assembler text is produced. 



-^ 



is an abbreviation for a "Serious Error Message." This prefix 
indicates that the flagged statement is definitely incorrect. 
The compiler does not generate code for the flagged statement. 

This severity level is used when the error cannot be localized 
to a single statement and, therefore, the error may affect 
other statements in the compilation. Compilation continues 
from the next statement, but assembler text is not produced. 



D 



is an abbreviation for a "Disastrous Error Message." This 
prefix indicates an error of the highest severity, and compi- 
lation is terminated at the point of error. Assembler text is 
not produced. 
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Coinpiler Return Codes 

When the compilation is completed or terminated, the compiler places a 
return code value in register 15. These return codes, which indicate 
the error status of the compilation, are: 

Return Code Error Status 

No errors- 

4 W-type errors were the highest level that occurred. 

8 E-type errors were the highest level that occurred. 

12 S-type errors were the highest level that occurred. 

16 D-type errors were the highest level that occurred. 

If the return code is 12 or 16, the compiler does not produce 
assembler text. If you assemble under OS, the cataloged procedures 
BSLASM and BSLALG test the compiler return codes to determine whether Or 
not to attempt assembly. 

The macro phase does not set a return code that can be tested by the 
user. If an error above the warning level occurs during the macro 
phase, the compile phase (when it gets control) sets the return code to 
16 and returns to the system without attempting compilation. 



Console Error Messages (OS) 

If the BSL compiler cannot open one of its required data sets, the com- 
piler terminates with a user code of 016. A message is written on the 
console device. This message is: 

UNABLE TO OPEN xxxxxx 

where xxxxxx is the ddname. 

If invalid parameters are passed to the compiler when it is dynamic- 
ally invoked, a compiler error may occur while trying to process the 
parameters. The following disastrous error message is written on the 
console device: 

INCORRECT INVOCATION OF THE BSL COMPILER 

Compilation is terminated at the point of error and no assembly text is 
produced. (See <also diagnostic message D19 explanation.) 
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Message Explanations (Macro Phase) 



In the following listings, you will find an 
explanation for each of the diagnostic mes- 
sages that may occur during the macro 
phase. These explanations will assist you 
in interpreting the messages and correcting 
the errors. There is a separate listing 
for messages of each severity level (W, E, 
S, and D) . Within each severity level, the 
messages are listed numerically by message 
number. 



MW0 5 



a compile-time label, xxxxxxxx will 
be replaced by the label name. 

Compiler Action ; The item in the 
ACTIVATE or DEACTIVATE Statement is 
ignored. 

xxxxxxxx IS A COMPILE-TIME KEYWORD 
BUT APPEARS AS A COMPILE-TIME LABEL. 
THE LABEL IS IGNORED. 

Explanation ; A keyword is used as a 
compile-time label. For example: 



Macro Warning Messages 

MWOl xxxxxxxx HAS NOT BEEN SET. 
MENT CANNOT OCCUR. 



REPLACE- 



%IF: 



GO TO LI; /* IF IS A KEYWORD */ 



Compiler Action ; The label on the 
compile-time statement is ignored. 



Explanation ; The named macro vari- 
able has been activated, but a value 
has not been assigned to it. For 
example; 

%DCL A CHAR; 

B = A; /* MACRO ASSIGNMENT HAS NOT 

APPEARED */ 
%A = 'XYZ'; 

Compiler Action ; The macro variable 
is not replaced by an assigned value. 

MW02 xxxxxxxx APPEARS AS A COMPILE-TIME 

LABEL, BUT HAS BEEN DEFINED PREVIOUS- 
LY. IT IS IGNORED. 



MW06 MORE THAN ONE PERCENT APPEARS FOLLOW- 
ING A COMPILE-TIME THEN OR ELSE, IT 
IS IGNORED. 

Explanation ; A THEN or ELSE is fol- 
lowed by more than one % sign. For 
example: 

%X = 10; 

%IF X = 5 %THEN %A = %Y = 6; 
/* TWO % FOLLOW THEN */ 

Compiler Action : The additional 
macro expressions are ignored. 



Explanation ; The named item is a 
label on a compile-time statement. 
It has also appeared as a label on a 
previous compile-time statement, or 
has been declared FIXED or CHAR in a 
compile-time DECLARE statement. 

Compiler Action ; The label is 
ignored. 



MW03 xxxxxxxx IS MULTIPLY DEFINED. 
SECOND DEFINITION IS IGNORED. 



THE 



Explanation ; The named item has 
appeared as a label on a previous 
compile-time statement, or has been 
declared in a previous compile-time 
DECLARE statement. 



Compiler Action ; 
tion is ignored. 



The second defini- 



MW04 xxxxxxxx CANNOT BE ACTIVATED/ 

DEACTIVATED BECAUSE IT IS UNDEFINED 
OR IS A COMPILE-TIME LABEL. 

Explanation ; The named item is not 
the type of item that can be acti- 
vated or deactivated. If the item is 
undefined, xxxxxxxx will be replaced 
by the word VARIABLE. If the item is 



MW07 THERE IS A MIXTURE OF COMPILE-TIME 

AND NON COMPILE-TIME STATEMENTS ON A 
CARD. PERCENT INSERTED. 

Explanation : A compile-time state- 
ment is followed by a non compile- 
time statement on the same card or a 
percent is missing where one is 
expected. For example; 

%X = 10; Y = 5; /* Y = 5 DOES NOT 
HAVE % PRECEDING IT ♦/ 
%IF A = 5 THEN % B = 10; /* A % WAS 
EXPECTED BEFORE THEN */ 

Compiler Action : Percent assumed. 



MW08 THERE IS A MIXTURE OF NON COMPILE- 
TIME AND COMPILE-TIME STATEMENTS ON A 
CARD. PERCENT IGNORED. 

Explanation ; A non compile-time 
statement is followed by a compile- 
time statement on the same card. For 
example : 



NAMELST='OF'X; 
BEFORE Y=10 */ 



% Y=lQi /* %APPEARS 



Compiler Action : Percent ignored. 
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Macro Error Messages 

MEOl A COMPILE-TIME REPLACEMENT LENGTH IS 
GREATER THAN 1000 BYTES. IT IS 
TRUNCATED. 

Explanation ; A string is specified 
to replace a compile-time variable 
name, and the string is greater than 
1000 bytes. 

Compiler Action ; The first 1000 
bytes are used. 



I ME02 (Unassigned) 

ME03 A COMPILE-TIME VARIABLE CONTAINS AN 
UNBALANCED QUOTE OR COMMENT. 

Explanation ; The replacement text 
for a compile- tiitie variable contains 
an unbalanced quote or comment. For 
example : 

%DCL (A, B) CHAR; 
%A ='/*THIS IS' ; 

will cause A to be as an unbalanced 
comment after substitution is made. 



ME07 



xxxxxxxx WAS THE TARGET OF A COMPILE- 
TIME GOTO, BUT NOW APPEARS IN A NON- 
LABEL POSITION. IT IS IGNORED. 

Explanation ; The named item is used 
in a non-label position, but was pre- 
viously the target of a GOTO state- 
ment. For example: 

%GOTO LI; 

%A = LI; /♦ CONFLICTING USAGE ♦/ 



Compiler Action : 
ignored. 



The statement is 



ME08 THE LENGTH OF A COMPILE-TIME VARIABLE 
EXCEEDS 1000 BYTES. THE LENGTH IS 
RESET TO 0. 

Explanation : The concatenation of a, 
compile-time string variable resulted 
in a string length of more than 1000 
bytes. 

Compiler Action ; The variable 
receives a length of 0. 

ME0 9 CONCATENATING A STRING CONSTANT HAS 
CAUSED THE LENGTH OF A STRING VARI- 
ABLE TO EXCEED 1000 BYTES. 



Compiler Action : The condition is 
accepted. The assignment is made as 
specified. 



ME04 A COMPILE-TIME THEN APPEJJRS IN AN IN- 
CORRECT POSITION. THE COMPILE-TIME 
STATEMENT IS SKIPPED. 

Explanation ; Self-explanatory. 

Compiler Action ; Everything up to 
and including the next semicolon ( ; ) 
is ignored. 



ME05 A COMPILE-TIME DECLARE IS NOT TER- 
MINATED BY A SEMICOLON. SCANNING 
RESUMES AFTER NEXT SEMICOLON. 



Explanation : The concatenation of a 
compile-time string constant resulted 
in a string length of more than 1000 
bytes . 

Compiler Action : The string variable 
receives a length of 0. 

MEIO THE NUMBER OF COMPILE-TIME ERRORS 

EXCEEDS 99. THE REMAINING ERRORS ARE 
NOT LISTED. 

Explanation ; The compiler lists a 
maximum of 99 compile-time error 
messages. 



Macro Serious Error Messages 



Explanation ; Self-explanatory. MSOl 



ME06 A DEACTIVATE OR ACTIVATE LIST HAS AN 
ILLEGAL DELIMITER. THE REST OF THE 
STATEMENT IS IGNORED. 

Explanation : An illegal delimiter is 
contained in an ACTIVATE or DEACTI- MS0 2 
VATE list. For example: 

%DEACT A,B: C; /* ILLEGAL DELIMITER*/ 
%DEACT A,B,C? /*ILLEGAL DELIMITER*/ 

Compiler Action ; The statement is 
ignored from the point of the illegal 
delimiter. 



AN ILLEGAL CHARACTER APPEARS IN A 
COMPILE-TIME STATEMENT. THE REST OF 
THE STATEMENT IS IGNORED. 

Explanation : The first character 
following the % is not an alphabetic 
character, a semicolon, or a blank. 

THE RECEIVER IN A COMPILE-TIME 
ASSIGNMENT STATEMENT HAS NOT BEEN 
PREVIOUSLY DECLARED. THE STATEMENT 
IS IGNORED. 

Explanation ; An assignment was made 
to an item that was not previously 
declared in a compile-time DECLARE 
statement . 
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MS03 



MS04 



MS05 



THE RECEIVER ON A COMPILE-TIME 
ASSIGNMENT STATEMENT IS A LABEL. 
STATEMENT IS IGNORED. 



THE 



Explanation ; A compile- time assign- 
ment was made to an it on that was 
previously used or declared as a 
label. 

ILLEGAL NAME IN COMPILE-TIME DECLARE. 
THE DECLARE IS IGNORED. 

Explanation : The compile-time 
DECLARE statement contains an illegal 
name. For example: 



%DECLARE ? 



/* ILLEGAL NAME */ 



A , OR ) APPEARS IN A COMPILE-TIME 
DECLARE THAT HAS NO FACTORING. THE 
STATEMENT IS IGNORED. 

Explanation ; A comma or a right 
parenthesis has been encountered in a 
compile-time DECLARE statement, but 
the statement contains no factored 
items . 



MS 09 THE TARGET OF A COMPILE-TIME GOTO 
DOESN'T START WITH AN ALPHABETIC. 
THE GOTO IS IGNORED. 

Explanation : An illegal identifier 
is the target of a compile-time GOTO. 
For example: 

5SG0T0 IC; /* ILLEGAL IDENTIFIER */ 

MSIO (Unassigned) 

MSll XXXXXXXX HAS APPEARED PREVIOUSLY IN 
TEXT, BUT IT IS THE TARGET OF A 
COMPILE-TIME GOTO. THE GOTO IS 
IGNORED. 

Explanation ; The compile-time facil- 
ity does not allow a branch backward 
to a label that previously appeared. 

MS 12 AN ILLEGAL OPERAND IS FOUND IN A 

COMPILE-TIME STATEMENT. THE REST OF 
THE STATEMENT IS IGNORED. 

Explanation : The operand of a 
compile-time statement is not a name, 
a decimal number, or a character 
string. 



MS06 A COMPILE-TIME DECLARE STATEMENT HAS 

AN ILLEGAL ATTRIBUTE. THE STATEMENT MSI 3 
IS IGNORED. 

Explanation ; A compile-time DECLARE 
statement contains an illegal or 
unidentifiable attribute. For 
example: 

%DCL (A, B, C) GLOM ; 

/* NO SUCH ATTRIBUTE */ 



MSI 4 



MS07 AN UNKNOWN RELATIONAL OPERATOR HAS 
BEEN ENCOUNTERED. THE STATEMENT IS 
IGNORED. 

Explanation ; A relational operator 
is illegal. For example; 

%IF A ?= B %THEN %GOTO Li; 
/♦ ?= IS ILLEGAL */ 



MS15 



MS08 THERE ARE UNEQUAL LENGTHS ON A STRING 
COMPARISON. THE STATEMENT IS 
IGNORED. 

Explanation ; Both operands of a 

compile-time comparison expression 

are not the same length. For 

example; MS 16 

%DCL (A,B) CHAR; 
%K = 'X'; 

%B = • XYZ • ; 

%XF A = B %THEN %GOTO Li; 

/*A AND B ARE DIFFERENT LENGTHS*/ 



A NAME OR NUMBER IN A COMPILE-TIME 
STATEMENT IS LONGER THAN 8 CHARAC- 
TERS. THE STATEMENT IS IGNORED. 

Explanation ; An identifier or a 
number in a compile-time statement is 
illegal because it has more than 
eight characters. 



XXXXXXXX IS IN A COMPILE-TIME EXPRES- 
SION BUT IS A LABEL, KEYWORD, OR 
UNDEFINED. THE STATEMENT IS IGNORED. 

Explanation ; The named item is used 
illegally in a compile-time expres- 
sion. For example: 

%A = B + GOTO; /*GOTO IS A KEYWORD*/ 



XXXXXXXX FOLLOWS A COMPILE-TIME IF, 
BUT IT IS A KEYWORD. THE STATEMENT 
IS IGNORED. 

Explanation : The nam.ed item is a 
keyword and is used illegally follow- 
ing a compile-time IF. 



A COMPILE-TIME ASSIGNMENT STATEMENT 
DOES NOT HAVE AN »=• OPERATOR. THE 
STATEMENT IS IGNORED. 

Explanation ; The = operator is mis- 
sing from a compile-time assignment 
statement. 
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MS 17 THERE ARE MORE THAN 2 TERMS IN A 

COMPILE-TIME ARITHMETIC EXPRESSION. 
THE STATEMENT IS IGNORED. 



MS 2 3 AN ILLEGAL NUMBER APPEARS IN A 

COMPILE-TIME EXPRESSION. THE STATE- 
MENT IS IGNORED. 



MSI 8 



MS19 



MS20 



MS21 



MS22 



Explanation ; A maximum of two terms 
is allowed in a compile-time arith- 
metic expression. For example; 

%A = B + C + D; /*T00 MANY TERMS*/ 

THERE IS AN ILLEGAL OPERATOR IN A 
COMPILE-TIME EXPRESSION. THE STATE- 
MENT IS IGNORED. 



Explanation ; Self-explanatory, 
example; 



For 



Explanation ; Self-explanatory, 
example; 



For 



%A = B ♦* C; /* ILLEGAL OPERATOR ♦/ 
^X = Y 6 Z; /♦ ILLEGAL OPERATOR */ 

A COMPILE-TIME IF CLAUSE IS NOT FOL- 
LOWED BY A THEN CLAUSE. THE STATE- 
MENT IS IGNORED. 

Explanation ; A compile-time IF 
statement is incomplete laecause the 
IF clause is not followed by a THEN 
clause. 

A NUMBER APPEARS AS AN OPERAND OUT- 
SIDE OF A COMPILE-TIME ARITHMETIC 
EXPRESSION. THE STATEMENT IS 
IGNORED. 

Explanation ; The compile-time expre- 
ssion is not arithmetic, but has a 
number as an operand. For example; 

%DCL C CHAR; 

%C=1; /*! IS ILLEGAL OPERAND*/ 



xxxxxxxx IS A COMPILE-TIME VARIABLE 
THAT DOES NOT HAVE A VALUE, BUT IS 
BEING USED IN A COMPILE-TIME 
EXPRESSION. 

Explanation ; A compile-time variable 
cannot appear in a compile-time 
expression unless it has been pre- 
viously assigned a value. 



Compiler Action ; 
ignored. 



The statement is 



THE RESULT OF A COMPILE-TIME ARITH- 
METIC EXPRESSION IS MORE THAN 8 
DIGITS. THE STATEMENT IS IGNORED. 

Explanation ; Self-explanatory. For 
example ; 

%DCL (A, B, C) FIXED; 
%A = 99999999; 
%B = 2; 

%C = A + B; /* RESULT IS MORE THAN 8 
DIGITS */ 



'%A=B+28X; /*28X IS ILLEGAL NUMBER*/ 

MS24 AN OPERATOR OTHER THAN CONCATENATION 
IS IN A COMPILE-TIME STRING EXPRES- 
SION. THE STATEMENT IS IGNORED. 

Explanation ; The concatenation 
operator is the only operator allowed 
in a compile-time string expression. 
For example ; 

5SDCL C CHAR; 

%C = • XYZ ' 11 C + 3 ; 

/* OPERATOR + IS ILLEGAL */ 

MS25 A CHARACTER STRING CONSTANT APPEARS 
OUTSIDE OF A COMPILE-TIME STRING 
EXPRESSION. THE STATEMENT IS IGNORED. 

Explanation ; A character string con- 
stant can only be used in a compile^ 
time expression. For example; 

%A = B + 'XYZ' ; 

/♦ILLEGAL ARITH EXPRESSION*/ 

MS 2 6 xxxxxxxx IS AN OPERAND OF A COMPILE- 
TIME ARITHMETIC STATEMENT BUT IS NOT 
ARITHMETIC. THE STATEMENT IS 
IGNORED. 

Explanation ; The named item is 
illegally used as an operand of a 
compile-time arithmetic statement. 
For example; 

%DCL A FIXED, C CHAR; 

%A = A + C; /*C IS NOT ARITHMETIC*/ 

MS27 xxxxxxxx IS AN OPERAND OF A COMPILE- 
TIME STRING STATEMENT, BUT JS NOT A 
STRING. THE STATEMENT IS IGNORED. 

Explanation ; The named item is 
illegally used as an operand of a 
compile-time string statement. For 
example; 

%DCL C CHAR, A FIXED; 

%C='YXZ' II A; /*A IS NOT STRING*/ 

MS28 THERE IS A DIVISION BY IN A 

COMPILE-TIME ARITHMETIC EXPRESSION. 
THE STATEMENT IS IGNORED. 

Explanation ; Division by zero is 
illegal. For example: 

%DCL (A, B) FIXED; 

%A = 0; %B = 6; 

%B = B/A; /* DIVISION BY ZERO */ 
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Macro Disastrous Error Messages 

MDOl AN END- OF- FILE IS ENCOUNTERED BEFORE 
NORMAL END OF TEXT. COMPILE-TIME 
PROCESSING IS TERMINATED. 



Explanation ; End-of-file is found 
before the normal end of text. For 
example: 

• In the middle of a compile-time 
statement. 

• In the middle of a string. 

• In the middle of a comment. 

• While attempting to execute 
%GOTO, but before reaching the 
target label. 

• In the middle of a BSL source 
statement. 

MD02 THE COMPILE-TIME DICTIONARY OR WORK 
AREA HAS OVERFLOWED. ALL COMPILE- 
TIME PROCESSING IS TERMINATED. 

Explanation ; There is not enough 
space for compile-time processing 
because the number of compile-time 
variables and labels exceeds 500, or 
the total length of compile-time 
character strings exceeds 4 5,000 
bytes. 

MD03 A LOOP HAS OCCURRED IN THE COMPILE- 
TIME RES CAN. ALL COMPILE-TIME PRO- 
CESSING IS TERMINATED. 



MD05 THE INCLUDE STATEMENT ASKS FOR A 

LIBRARY MEMBER THAT CANNOT BE FOUND 
IN THE SPECIFIED LIBRARY. 



Explanation ; The member name speci- 
fied in the INCLUDE statement cannot 
be found in the specified partitioned 
data set. 

User Response ; Check the spelling of 
the member name in the INCLUDE state- 
ment, and check the data set name on 
the DD statement indicated in the 
INCLUDE statement. 

MD06 AN I/O ERROR HAS OCCURRED WHILE 

SEARCHING FOR THE REQUESTED MEMBER IN 
THE USER'S LIBRARY. 

Explanation ; I/O error. 

MD07 THE PARTITIONED DATA SET SPECIFIED IN 
THE INCLUDE HAS A BLKSIZE GREATER 
THAN 3520 OR A RECFM OTHER THAN F. 

Explanation ; The partitioned data 
set may contain blocked records up to 
a block size of 3520 bytes, and must 
contain fixed format records. 

User Response ; Respecify the block 
size or record format of the data set 
and run the job again. Make sure 
that the INCLUDE statement specifies 
the correct data set. 



Explanation ; Compile-time processing MD08 
allows a maximum of 50 rescans, and 
then assumes that a loop has 
occurred. 

MD04 THE INCLUDE STATEMENT IS INCORRECTLY 

WRITTEN. MD09 

Explanation ; The ddname or member 
name is too long, or there are blanks 
between ddname (member) . 



AN INCLUDE STATEMENT APPEARS WITHIN 
INCLUDED TEXT. 

Explanation ; Included text may not 
contain an INCLUDE statement. 

A COMPILER ERROR HAS OCCURRED IN THE 
MACRO PHASE. SUBMIT A TROUBLE REPORT 
TO DEPT. D76, POUGHKEEPSIE , N.Y. 

Explanation ; Self-explanatory. 
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Message Explanations (Compile Phase) 

In the following listings, you will find an 
explanation for each of the diagnostic mes- 
sages that may occur during the compile 
phase. These explanations will assist you 
in interpreting the messages and correcting 
the errors. There is a separate listing 
for messages of each severity level (W, E, 
S, and D) . Within each severity level, the 
messages are listed numerically by message 
number . 



Warning Messages 



WOl 



WO 2 



VARIABLE HAS ILLEGAL PRECISION OR 
LENGTH. THE DEFAULT PRECISION OR 
LENGTH HAS BEEN USED. 

Explanation ; The declaration contains 
one of the following illegal preci- 
sions or length: 

• A FIXED variable is declared with 
a precision other than 15 or 31. 
For example: 

DCL A FIXED (25); /* ILLEGAL ♦/ 

• A POINTER variable is declared 
with a precision other than 8, 15, 
16, 24, 31, or 32. For example: 

DCL B PTR(17); /♦ ILI^GAL */ 

• A BIT or CHAR variable is declared 
with no specified length. For 
example: 



DCL C BIT; 
DCL D CHAR; 



/* ILLICGAL */ 
/♦ ILLEGAL */ 



Compiler Action : The default preci- 
sion or length is used for the 
declared variable, as follows: 

• A precision of 31 for a FIXED 
variable. 

• A precision of 31 for a POINTER 
variable. 

• A length of 1 for a BIT or CHAR 
variable. 

XXXXXXXX HAS A BOUNDARY GREATER THAN 
THAT OF ITS CONTAINING STRUCTURE. A 
BYTE BOUNDARY WAS USED. 



Compiler Action : The named variable 
is put on the next byte boundary. 

WO 3 XXXXXXXX HAS MORE INITIAL VALUES THAN 
THERE ARE ELEMENTS TO BE INITIALIZED. 
THE EXTRA VALUES WERE IGNORED. 

Explanation : One of the following: 

• The named item is an array with ai 
replication factor that specifies 
too many initial values. For 
example : 

DCL A(10) INIT(1,2, (9)3) ; 
/♦TOO MUCH REPLICATION*/ 

• The named item is an array with 
too many initial values. For 
example: 

DCL B(3) INIT(l,2,3,a) ; 
/♦TOO MANY VALUES*/ 

• The named item is not dimensioned, 
but contains a replication factojt- 

Compiler Action : All elements of the 
array are initialized, and the remain- 
ing initial values are not used. 

WOU XXXXXXXX HAS A CONSTANT SUBSCRIPT THAT 
IS GREATER THAN THE NUMBER OF ELEMENTS 
DECLARED FOR THE ARRAY. 

Explanation : The named itemr which 
was declared to be an array, is being 
referred to with a constant subscript 
that is larger than its dimension. 
For example: 



WO 5 



DCL A (10) ; 
A (12) = B; 



/* SUBSCRIPT TOO LARGE*/ 



WO 6 



A DECLARED REGISTER IS ONE OF THE 
REGISTERS WHICH MAY BE REQUIRED FOR 
USE BY THE COMPILER. 

Explanation : A variable is declared 
with REGISTER storage class. The 
register specified is register 0, 13, 
14, or 15; or a CODEREG or DATAREG; Or 
register 1 when there are formal 
parameters. 

XXXXXXXX IS A DIMENSIONED ITEM THAT ; 
APPEARS WITHOUT A SUBSCRIPT. 



Explanation : The boundary of the 
named variable is greater than the 
boundary of its containing structure, 
where DWORD>WORD>HWORD>B YTE . For 
excimple: 

DCL lA FIXED (31) BDY HWORD, 
2B CHAR (2) , 

2C FIXED(31); /* BDY GREATER 
THAN HWORD */ 



Explanation : The named item was 
declared to be an array, but is being 
referred to without a siibscript. For 
example : 

DCL A (10) ; 

A = B; /♦ COMPILED AS A(1)=B */ 



Compiler Action : 
assumed. 



A subscript of 1 is 
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W07 (Unassigned) 

WO 8 xxxxxxxx SHOULD NOT BE USED AS A 

LABEL. IT HAS BEEN PREVIOUSLY USED OR 
DECLARED AS OTHER THAN LOCAL LABEL. 

Explanation ; The named item is being 
used as a label, but was previously 
used or declared as other than a LOCAL 
label. For example: 

DCL P PTR, L LABEL BASED (P); 

L: CALL Q; /* L IS A BASED LABEL AND 
SHOULD NOT APPEAR AS 
LABEL OF A STATEMENT +/ 



LI: 
LI: 



A = B + C; 
X = Y; 



/* Ll HAS BEEN PREVIOUSLY 
USED AS A LABEL */ 



Compiler Action : The named item is 
not used. 



might be compiled as: 

L 8,1 

SLL 8,8 

LA 10,B-256(8) 

MVC A(256),0(10) 

which would be incorrect if the array 
began less than 256 bytes from the 
start of addressability. 

W14 VARIABLE IS ARITHMETIC, AND MAY RESULT 
IN AN ERROR WHEN USED IN THIS CONTEXT. 



Explanation ; The result of the 
assignment may not be what is 
expected. For example: 

DCL C CHAR(l), V INIT(l); 
C = V; 

IS COMPILED AS MVC C(1),V which sets C 
to 'OO'X. 



WO 9 PROCEDURE STATEMENT WAS NOT FOUND. 
CSECT WITH NO NAME WAS PRODUCED. 



Explanation : The first statement in a 
compilation is neither a GENERATE 
statement nor a PROCEDURE statement. 

Compiler Action ; An unnamed procedure 
is assumed. 

WIO (Unassigned) 

Wll COMMENT TERMINATOR MAY BE MISSING. A 
SEMICOLON OR A /* APPEARS WITHIN THE 
COMMENT. 

Explanation ; A semicolon or a /* 
appears within a comment. For 
example ; 

/* A BSL STATEMENT ENDS WITH A; ♦/ 

/♦ THE COMBINATION OF OPERATORS /♦ 
SHOULD NOT START IN COLUMN 1 */ 

W12 VARIABLE HAS BEEN TRUNCATED TO EIGHT 
CHARACTERS . 

Explanation : An identifier has more 
than eight characters. 

compiler Action : The identifier is 
shortened to eight characters by using 
the eight leftmost characters. 

W13 xxxxxxxx MAY NOT BE ADDRESSABLE. 

Explanation : The generated code may 
not correctly address the named item. 
For example: 

DCL {B(10),A) CHAR(256); 
A = B(I); 



A W15 xxxxxxxx HAS PREVIOUSLY RECEIVED DIF- 
FERENT ATTRIBUTES. THESE ATTRIBUTES 
ARE OVERRIDDEN AT THIS POINT. 

Explanation ; The label or entry name 
was previously declared with different 
attributes. For example: 

P = ADDR(L); /♦ L DEFAULTS TO 
FIXED (31) */ 



L: A = A + 1; 

/* L GETS AN OVERRIDDING ATTRIBUTE 
OF LABEL ♦/ 

Compiler Action ; The previous attri- 
bute is overridden at this point, and 
the result may be incorrect or 
inefficient. 

W16 xxxxxxxx HAS SIGNIFICANT HIGH ORDER 
BIT, BUT CODE MAY HAVE BEEN PRODUCED 
THAT ASSUMES ITS HIGH ORDER BIT IS 0. 

Explanation : Code may have been pro- 
duced assiiming that the high-order bit 
of the named item is 0. For example; 

DCL P32 PTR(32) , A FIXED; 
IF P32 = A THEN GOTO Ll; 

/+ COMPARISON MAY BE WRONG ♦/ 

W17 THE USE OF REGISTER 1 MAY BE INCO- 
RRECT. IT IS REQUIRED FOR USE AS A 
PARAMETER LIST OR ARGUMENT LIST 
POINTER. 

Explanation : The use of register 1 
may be incorrect for one of the fol- 
lowing reasons: 
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W18 



• A CALL Statement with arguments W22 
appears in a PROCEDURE with formal 
parameters and register 1 was not 
saved. The user must save and 
restore register 1 around the CALL 
statement before making another 
reference to a parameter. 

• A PROCEDURE statement has formal 
parameters and register 1 has not 
been saved. 

xxxxxxxx APPEARS on A PROCEDURE END 
STATEMENT, BUT IS NOT THE NAME OF THE 
PROCEDURE . 



Explanation ; The named item is an 

identifier that follows a procedure 

END statement, but is not the name of 

the procedure that the END statement 

will close. For example: W23 

A: PROC; 



xxxxxxxx HAS CONFLICTING BASED AND 
BOUNDARY ATTRIBUTES; THE BASE WAS 
ADJUSTED TO AGREE WITH THE BOUNDARY. 

Explanation ; The named item is 
declared with both BASED and BOUNDARY 
attributes. The BOUNDARY attribute 
specifies a boundary that differs from 
that of the item in the BASED 
attribute. 

Compiler Action ; The base is adjusted 
upward to the next higher boundary 
that agrees with the boundary in the 
BOUNDARY attribute. For example; 

DCL A BASED (3) BDY(WORD); 

Location 3 is not a word boundary, so 
A will be based on 4 instead of 3. 

TRACE OPTION WAS SPECIFIED FOR A PRO- 
CEDURE WITH NO SAVE AREA. TRACE WILL 
BE DONE USING THE VALUE IN REGISTER 
13. 



END B; /* NOT PROCEDURE NAME */ 

W19 AUTOMATIC ATTRIBUTE CANNOT BE SPECI- 
FIED IN A NON- REENTRANT PROCEDURE. 
AUTOMATIC HAS BEEN REPLACED BY STATIC. 



Explanation ; The AUTOMATIC attribute 
is specified for an item, but the 
external procedure does not specify 
the REENTRANT option. 

Compiler Action ; The item is given 
the STATIC attribute. 

W2 xxxxxxxx IS NOT IN THE SCOPE OF THIS 
PROCEDURE . 

Explanation ; The named item was 
declared in a disjoint procedure. For 
example: 

A: PROC; 
B ; PROC ; 

DCL X; 

END B; 
/♦PROC B IS DISJOINT FROM C*/ 
C ; PROC ; 

X = Z; /*X IS DECLARED IN PROC B*/ 

END C; 

END; 

W21 VARIABLE HAS AN ILLEGAL DIMENSION. A 
DIMENSION OF ONE HAS BEEN USED. 

Explanation ; The value specified for 
a dimension is not a decimal constant 
between 1 and 32767. 

Compiler Action ; A constant of one is 
used for the dimension. 



Explanation ; The TRACE option is 
specified, but the procedure has no 
save area. 

Compiler Action ; Tracing code is 
generated assuming that register 13 
points to a save area which is at 
least as large as the specified 
offset. 

W24 PROCEDURE SPECIFIED CODEREG (0) AND 

TRACE OPTION HAS BEEN USED. USER MUST 
GENERATE CODE TO INITIALIZE TRACING. 

Explanation ; The compiler did not 
generate addressability for theS proce- 
dure because of the CODEREG (0) option. 
With no addressability, the compiler 
cannot generate code to initialize the 
tracing operation. 

Compiler Action ; The compiler assumes 
that the user has provided the code to 
establish addressability and initial- 
ize tracing. 

W25 xxxxxxxx HAS BEEN USED OUTSIDE THE 
SCOPE OF THIS PROCEDURE. 

Explanation ; The named variable is a 
label that was referred to by a GOTO 
statement from outside the scope of 
this procedure. 

W26 A LABEL APPEARS ON A DECLARE, 

RESTRICT, OR RELEASE STATEMENT. THE 
LABEL WILL BE APPLIED TO THE NEXT 
STATEMENT. 

Explanation ; DECLARE, RESTRICT, and 
RELEASE statements should not be 
labeled. 
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compiler Action : The label will be 
used on the next statement that can 
have a label. 

W27 xxxxxxxx IS BASED ON REGISTER ZERO, 
WHICH CANNOT BE USED DIRECTLY AS A 
BASE REGISTER. 



Explanation ; This warning is given on 
the declare statement where the named 
item is declared. A register other 
than zero should be used as a base. 

W28 THE OPTION NOSAVEAREA WAS SPECIFIED IN 
THE CONTAINING PROCEDURE. REGISTER 13 
MAY CONTAIN AN INCORRECT ADDRESS. 



Explanation ; An internal procedure is 
contained in a procedure that used the 
NOSAVEAREA procedure option, and the 
internal procedure has used no proce- 
dure options that would suppress save 
area chaining. For example: 

A: PROC OPT I ONS( NOSAVEAREA); 



CALL B; 



B: PROC; 



END B; 

END A; 

Compiler Action ; Save area chaining 
will be done using the current value 
in register 13. 

W29 (Unassigned) 

W30 xxxxxxxx IS A REGISTER VARIABLE AND 
HAS NOT BEEN RESTRICTED. INCORRECT 
CODE MAY BE GENERATED. 

Explanation ; The indicated register 
is still available for use by the com- 
piler as long as it has not been 
restricted by the programmer. If the 
programmer needs to maintain a certain 
value in a register for a particular 
section of code, that register should 
be restricted in order to prevent the 
compiler from allocating it for 
generated code. 

W31 AN END STATEMENT WAS ENCOUNTERED FOR A 
DO STATEMENT WHICH CONTAINED AN ERROR. 

Explanation ; The corresponding DO 
statement for this END statement: 



• contained an error. 

• was contained in a dangling ELSE 
clause. 

The END statement has been matched 
with a DO statement for which no code 
was generated. Thus, no loop return 
code will be generated for the END 
statement. When the error in the DO 
statement or the error that caused the 
dangling ELSE has been corrected, the 
END statement will be correctly 
processed. 



W32 xxxxxxxx IS A STRUCTURE WHOSE SPECI- 
FIED SIZE IS LESS THAN THE TOTAL SIZE 
OF ITS COMPONENTS. 

Explanation : The named structure is a 
major or minor struct\are with a 
declared size and the total size of 
this structure's components exceeds 
that size. 



W33 xxxxxxxx HAS A BOUNDARY REQUIREMENT 
WHICH CAUSES BYTES TO BE SKIPPED IN 
THE MAPPING OF THE STRUCTURE. 

Explanation : The named variable is in 
a structure and it has a declared or 
implied boundary which causes bytes to 
be skipped in mapping the structure. 
For example : 

DCL 1 RECORD, 

2 NAMEFLD CHAR ( 27) , 
2 CODE FIXED (31); 

There will be a byte skipped between 
NAMEFLD and CODE because CODE requires 
a word boundary. 



Error Messages 

EOl xxxxxxxx HAS BEEN PREVIOUSLY DECLARED. 
THIS DECLARATION HAS NOT BEEN 
PROCESSED. 

Explanation ; The named item was 
declared previously, either explicitly 
or by default. 

Compiler Action ; The declaration is 
not processed. 

E02 MORE THAN 20 LEVELS OF FACTORING ARE 
USED. 

Explanation : The DECLARE statement 
has more than 20 as yet unmatched left 
parentheses. 

Compiler Action : The statement is 
processed as if factoring ended after 
20 levels. 
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E03 A DATA NAME WAS EXPECTED BUT NOT 
FOUND. 

Explanation ; A DECLARE statement has 
something other than the name of a 
data item in a place where a data name 
is expected. For example: 

DCL A FIXED, ; 

/* DATA NAME IS EXPECTED FOLLOWING 
THE COMMA */ 



E04 A RIGHT PARENTHESIS WAS EXPECTED BUT 
NOT FOUND. ONE WAS ASSUMED. 

Explanation ; Self-explanatory. For 
example: 

DCL A FIXEDdS; 

/♦ RIGHT PAREN IS MISSING */ 

Compiler Action : A right parenthesis 
is assumed. 

EOS xxxxxxxx HAS CONFLICTING ATTRIBUTES. 
THE SECOND ATTRIBUTE WAS IGNORED. 

Explanation ; The named item has con- 
flicting attributes. For example; 

DCL A INTERNAL EXTERNAL; 

/* CONFLICTING ATTRIBUTES */ 



E09 VARIABLE HAS AN ILLEGAL BOUNDARY 

ATTRIBUTE. THE NORMAL DEFAULT BOUND- 
ARY WAS USED. 

Explanation ; The BOUNDARY attribute 
is incorrectly written. For example; 

DCL A FIXED BDY (HWRD) ; 

/♦ SHOULD BE SPELLED HWORD */ 



ElO CALL STATEMENT HAS AN ILLEGAL ARGUMENT 
— A REGISTER VARIABLE OR AN EXPRES- 
SION USING A BIT OPERATOR. 

Explanation ; The following items can- 
not be used as arguments in a CALL 
statement: 

• Register variables. 

• Expressions using only bit opera- 
tors ( S , I ,, 6 & ) . 

For example: 

DCL R3 REG(3), X CHAR(4), Y CHAR (5); 
CALL SUBR(XSY, R3) ; 

/* ILLEGAL ARGUMENTS */ 



Ell 



STATEMENT CONTAINS UNBALANCED 
PARENTHESES . 



Compiler Action ; The second attribute 
is ignored. 

E06 A KEYWORD, OPERATOR, OR DELIMITER 
APPEARS IN AN INCORRECT POSITION. 

Explanation ; The position of a key- 
word, operator, or delimiter is syn- 
tactically incorrect. For example: 



E07 



£08 



A=B+; Z+OPERATOR PRECEDES SEMICOLON*/ 

A CONSTANT SUBSCRIPT LARGEK THAN 32767 
HAS BEEN USED. 

Explanation : The maxim\am value of a 
subscript constant is 32,767. For 
example ; 



A(32768) 



0; /* ILLEGAL SUBSCRIPT */ 



OPTION SPECIFIED WITH AN ENTRY ATTRI- 
BUTE IS INVALID OR INCORRECTLY 

WRITTEN. 



Explanation : There are more right 
parentheses than left parentheses. 
For example : 

DCL A,B) FIXED; 

/♦MISSING LEFT PAREN*/ 

El 2 A SEMICOLON WAS ENCOUNTERED BEFORE 
FACTORING WAS CLOSED OUT. A RIGHT 
PARENTHESIS WAS ASSUMED AT THAT POINT. 

Explanation : In a DECLARE statement, 
a semicolon was encountered in the 
list of names having factored attri- 
butes . For example ; 

DCL (A, B FIXED; 

/* INCOMPLETE FACTORING */ 

Compiler Action ; A right parenthesis 
is assumed at the point where the 
semicolon was encountered. 

E13 xxxxxxxx CANNOT HAVE AN INITIAL VALUE. 



Explanation ; The option specified is 
not 'VLIST' or the format is incor- 
rect. For example: 

DCL A ENTRY OPTIONS VLIST) ; 
/*No left paren*/ 

DCL B ENTRY OPTIONS (DONTS AVE) ; 
/*Option is not VLIST*/ 



Explanation ; The named variable can- 
not be initialized because it is part 
of a BASED or AUTOMATIC Structure. 
For example; 

DCL 1 A BASED, 

2 B INIT(IO), 

/*ILLEGAL INITIALIZATION*/ 
2 C; 
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El 4 VARIABLE DOES NOT HAVE AN ATTRIBUTE 
WHERE AN ATTRIBUTE IS EXPECTED. 

Explanation ; A non-attribute appears 
where an attribute is expected. For 
example : 

DCL A FIXED B EXT; 

/♦ MISSING COMMA BEFORE B */ 



DCL L LABEL; 

GO TO L(2); Z+ILLEGAL SUBSCRIPT*/ 

• A substring is used on a FIXED or 
POINTER item. 

• A variable range or variable off- 
set substring is used in an arith- 
metic or CALL statement, or in an 
ADDR function. 



E15 xxxxxxxx HAS AN ILLEGAL INITIAL VALUE. 

Explanation ; The initial value for 
the named item is illegal for one of 
the following reasons; 

• The syntax of the initial value is 
incorrect. For example: E17 
(•OIOIA'B). 

• Initial values are not separated 
by commas . 

• Initial values are not terminated 
by a right parenthesis. 

• Initial values contain a 
semicolon. 

• The initial value is a null 
string. 

• An initial string value is longer E18 
than the declared length of the 
string. 

• A FIXED or POINTER item is ini- 
tialized with a character or bit 
string. 

• A CHARACTER or BIT item is ini- 
tialized with a binary or decimal 
number. 

• A FIXED, CHARACTER, or BIT item is 
initialized with the ADDR 
function. 

• The syntax of an ADDR function is 
incorrect. E19 

• In ADDR(name), the name is not a 
STATIC item. 

• A replication factor is not a 
decimal number. 



El 6 SUBSTRING NOTATION IS IMPROPERLY WRIT- 
TEN OR INCORRECTLY USED. 

Explanation ; The substring notation 
is illegal for one of the following 
reasons: 

• A subscript is used with a non- 
dimensioned LABEL item. For 
example; 



• A variable range is used for the 
assignment of one byte. For 
example; 

A(I;J)='A'; Z+ILLEGAL RANGE*/ 



xxxxxxxx IS A REGISTER USED IN A 
STRING EXPRESSION OR WITH A SUBSCRIPT 
OR SUBSTRING. 

Explanation ; The named variable is a 
register; therefore, it may not be 
subscripted, substringed, or used in a 
string expression. For example: 

DCL R2 REG(2), A CHAR (4), B CHAR (4); 
F31 = R2(2) ; 

/* USED WITH A SUBSTRING */ 
A = B £ R2; 

/* USED IN STRING EXPRESSION */ 

AN ILLEGAL COMBINATION OF OPERATORS 
WAS USED. AN OPERAND MAY BE MISSING. 

Explanation ; The combination of 
operators is illegal for one of the 
following reasons; 

• An operand is missing- For 
example; 

A = B + ; /* MISSING OPERAND */ 

• The argument of an ADDR function 
is a number. For example; 

P = ADDR (24); 

/* ILLEGAL ADDR ARGUMENT */ 

•DO' IS NOT FOLLOWED BY SEMICOLON, 
EQUAL, OR A SERIES OF POINTERS FOL- 
LOWED BY EQUAL. 

Explanation ; The DO statement is 
written incorrectly, the control vari- 
able is subscripted or substringed, or 
is more than four bytes long. For 
example: 

DO I 1 TO 10 BY 3; 

/♦ INCORRECTLY WRITTEN ♦/ 
DO A (I) = 1 TO 10; 

/*SUBSCRIPT WITH CONTROL VARIABLE*/ 
DCL C5 CHAR (5) ; 
DO C5=l TO 10; 

/♦VARIABLE MORE THAN FOUR BYTES 
LONG*/ 
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E20 A SEMICOLON APPEARS BEFORE THE END OF 
A FORMAL PARAMETER LIST. 

Explanation ; A simicolon is encoun- 
tered before the right parenthesis of 
a formal parameter list. For example: 



A: 



PROC (X, Y, Z ; 

/* SEMICOLON BEFORE PAREN ♦/ 



E26 AN INVALID CHARACTER WAS FOUND IN THIS 
STATEMENT. THE COMPILER WILL SKIP TO 
THE NEXT SEMICOLON. 

Explanation ; The compiler has found 
an illegal punch or a character not in 
the legal character set. The error 
could be a misplaced control card or 
the absence of a $MACRO control card. 



E21 'GENERATE' IS NOT FOLLOWED BY A LEFT 
PAREN OR A SEMICOLON, OR IS NOT ENDED 
BY A RIGHT PAREN AND A SEMICOLON. 



E27 A PARAMETER IS IN THE FORM OF A DATA 
CONSTANT. PARAMETERS MUST BE SIMPLE 
DATA NAMES. 



Explanation ; The keyword GENERATE 
must be followed by a left parenthesis 
(for a simple GENERATE) or a semicolon 
(for a block GENERATE). A simple GEN- 
ERATE stateitent must be ended by a 
right parenthesis and a semicolon - 
For example: 

GEN TRT 0(100,7) ,TABLE) ; 

/* MISSING LEFT PAREN */ 

GEN (TRT 0(100, 7), TABLE) 

/* MISSING SEMICOLON */ 

This message may also occur if a 
simple GENERATE statement covers more 
than one card. 

E22 A PARAMETER IS MISSING. 



E23 



E2a 
E25 



Explanation : 
example: 



Self-explanatory. For 



X; PROC (A, ,B); 

/* SUCCESSIVE COMMAS IN PARAMETER 
LIST */ 

THE LEFT SIDE OF A RELATIONAL EXPRES- 
SION CONTAINS BOTH STRING AND ARITH- 
METIC DATA WITH NO ARITHMETIC 
OPERATORS. 



Explanation ; 
example; 



Self-explanatory. For 



DCL A FIXED, B CHAR (2); 
IF (A S B) = 10 THEN GOTO LI; 
/* ILLEGAL */ 

(Unassigned) 

STATEMENT CONTAINS TOO MANY TERMS OR 
TOO MANY ARGUMENTS. 

Explanation ; The statement is illegal 
for one of the following reasons; 

• A statement contains too many 
terms . 

• A CALL statement contains more 
than 25 arguments. 

• An IF statement requires more than 
2H true/false branches. 



Explanation ; A parameter is written 
as a data constant. Parameters must 
be simple data names. (Arguments may 
be data constants.) For example; 

A; PROC (X, Y, 3); /* 3 IS ILLEGAL */ 



E28 VARIABLE HAS AN INCORRECTLY WRITTEN 
SUBSCRIPT, OR SHOULD NOT BE 
SUBSCRIPTED. 

Explanation ; The form of the sub- 
script is incorrect. For example; 

A=B(I+J*K+1) ; /*MULT OPERATOR MUST BE 
LAST IN SUBSCRIPT*/ 



E29 THE 'NOT' OPERATOR IS NOT USED WITH A 
RELATIONAL OPERATOR. 

Explanation ; The n operator may only 
be used in combination with one of the 
relational operators (t=,i<, or t>). 
For example; 

A = iB; /♦ ILLEGAL OPERATOR */ 



E30 VARIABLE IS NOT QUALIFIED BY A POINT- 
ER. QUALIFIER IS MISSING OR HAS NOT 
BEEN DECLARED A POINTER. 

Explanation ; Self-explanatory. For 
example: 

DCL A BASED; 

A = 3; /♦ A HAS NO QUALIFIER */ 

B ->A = 3; 

/*B WAS NOT DECLARED POINTER*/ 



E31 CONSECUTIVE VARIABLES OR CONSTANTS 
APPEAR. 

Explanation ; Consecutive data 
variables or constants were found. 
Operators or delimiters may be miss- 
ing. For example: 

A = B C + D; /* ERROR */ 
A = 1 B; /* ERROR */ 
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E32 



E33 



E34 



VARIABLE HAS NOT BEEN DECLARED BASED 
OR BASED ON A POINTER, BUT IS BEING 
LOCATED BY A POINTER. 

Explanation ; A pointer qualifier is 
used to locate an item that has not 
been declared BASED or is not BASED on 
a pointer. For example: 

DCL B FIXED (31) ; 
DCL A BASED(ADDR(B) ); 
B = P -> A; /* ILLEGAL ♦/ 

THE RIGHT SIDE OF A RELATIONAL EXPRES- 
SION IS SHORTER THAN THE LEFT SIDE. 
THIS IS NOT ALLOWED WITH STRING DATA. 



Explanation ; 
example: 



Self-explanatory. For 



DCL A CHAR (a), B CHAR(2); 
IF A = B THEN GOTO LI ; 

/* B IS SHORTER THAN A */ 



ILLEGAL BIT OPERATION. 
USER'S GUIDE' . 



CONSULT 'BSL 



Explanation ; A bit string constant is 
illegal (e.g., 'lOllA'B), or a bit 
operation violates one of the follow- 
ing restrictions; 

• If a bit variable is assigned to a 
bit variable, each bit variable 
must be on a byte boundary and 
must be a multiple of eight bits. 

• If a bit constant is assigned to a 
bit variable, and the bit variable 
is not on a byte boundary, then 
the assigned bit string must not 
cross two byte boundaries (it may 
cross one byte boundary) . If the 
bit variable is aligned on a byte 
boundary, the length of the bit 
string is not restricted. 

• A null string constant used in any 
context other than a simple 
assignment statement of the type 
A=";. 

• If a comparison involves a bit 
variable that is not on a byte 
boundary or not a multiple of 
eight bits, then the bit variable 
must be; 

1. Less than eight bits. 

2. Entirely contained within the 
boundaries of one byte. 

3. On the left side of the 
comparison. 

U. Compared to a bit constant 
which is either all ones or 
all zeros. 

5. Compared by the = or -| = 
operator. 



• A bit string item that is not on a 
byte boundary cannot be used as a 
subscript or substring. 

• A bit variable that is not on a 
byte boundary is used as an argu- 
ment in a CALL statement. 

• A bit string constant that is used 
as an argument in a CALL statement 
is not a multiple of eight bits. 

E35 VARIABLE IS A FORMAL PARAMETER OF A 
CONTAINING PROCEDURE. 

Explanation ; The formal parameter 
referred to does not appear in the 
PROCEDURE statement of the current 
procedure. For example: 

A: PROC (X, Y, Z) ; 



B; PROC (L, M, N) ; 

N=X; /* ILLEGAL REFERENCE TO X */ 

E36 THE FORMAL PARAMETER IN THE ENTRY 
STATEMENT APPEARED IN A DIFFERENT 
POSITION IN THE PROCEDURE STATEMENT. 

Explanation ; The position of a formal 
parameter in an ENTRY statement is 
different from its position in the 
PROCEDURE statement (or different from 
its position in another ENTRY state- 
ment) . For example: 

X: PROC (A, B, C) ; 

Y; ENTRY (L, M, A); /* A IN WRONG 

POSITION ♦/ 
Z; ENTRY (A, B, L) ; /* L IN WRONG 

POSITION */ 

E37 INVALID CONSTANT. 

Explanation ; A constant is invalid 
for one of the following reasons : 

• A hexadecimal string constant con- 
tains illegal digits (e.g., 
'OlABXY'X). 

• A decimal number contains digits 
other than 0, 1, 2, 3, 4, 5, 6, 7, 
8, 9; or is larger than 2^^ -1. 

• A binary number is longer than 31 
digits. 

• A string constant has more than 53 
positions. 

E38 xxxxxxxx IS NOT A POINTER, LABEL, OR 

ENTRY, BUT IS THE OPERAND OF A GOTO OR 
RETURN TO STATEMENT. 

Explanation ; The target in a GOTO or 
RETURN TO Statement is not a POINTER, 
LABEL, or ENTRY item. For example; 

GOTO V; is illegal if V is FIXED. 
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E39 RELATIONAL EXPRESSION HAS A STRING 
CONSTANT ON THE LEFT OR A VARIABLE 
LENGTH SUBSTRING ON THE RIGHT. 

Explanation ; A relational expression 
is incorrect for one of the following 
reasons: 

• A string constant is the first 
item on the left side of a rela- 
tional expression. For example: 

IF CFF'X 6 A) = 10 THEN GOTO Ll; 
/♦ ILLEGAL USE OF STRING 
CONSTANT */ 

• A variable length substring 
appears on the right side of a 
relational expression and the left 
side is a constant length. For 
example: 

IF A = B(I:J) THEN GOTO Ll; 
/* ILLEGAL SUBSTRING */ 



E43 AN ELSE WAS ENCOUNTERED WHERE THERE 
WAS NO IF STATEMENT NEEDING AN ELSE. 

Explanation : There is an unmatched 
ELSE clause. For example: 

IF A = B THEN X = Y; 
A = B + 1; 
ELSE A=B-1; /*N0 IF FOR THIS ELSE*;/ 



EU4 xxxx LABEL (S) HAVE BEEN REFERENCED BUT 
NOT DEFINED. UNDEFINED LABELS ARE 
MARKED WITH A 'U' IN THE XREF LIST. 

Explanation ; A number of labels have 
been referred to in the program, but 
were not defined. These undefined 
labels are marked with a 'U' in the 
attribute and cross-reference table. 



E45 END OF FILE OR SEPARATOR EXPECTED 
HERE. 



EUO AN OFFSET OF MORE THAN 4096 IS 

REQUIRED IN CODE GENERATED FOR THIS 
STATEMENT. CONSULT ' BSL USER'S 
GUIDE' . 

Explanation ; An addressing error 
occurred because the constant dis- 
placement was greater than 409 5 bytes. 
Constant displacement is explained 
under "Addresses" in Section V of this 
manual. 



E41 THE END STATEMENT FOR A DO STATEMENT 
HAD NOT BEEN ENCOUNTERED WHEN ANOTHER 
PROCEDURE STATEMENT WAS ENCOUNTERED. 

Explanation : A DO statement was not 
properly closed. For example: 

A: RPOC; 



E46 



Explanation : BSL statements were 
found after the logical end of the BSL 
program. For example; 

A : PROC ; 



END A; 

X=Y+3; /*EOF OR $$$ SHOULD BE HERE*/ 



AN OPERATION OF MORE THAN 256 BYTES IS 
INDICATED. THE SUBSTRING NOTATION 
SHOULD BE USED TO BREAK UP THIS TASK. 

Explanation : The coding requires an 
operation of more than 256 bytes. For 
example: 

DCL (B,C) CHAR(500); 

B=C; /* TOO MANY BYTES. BREAK UP 

OPERATION BY USING SUBSTRING 

NOTATION */ 



E42 



DO; 



B: PROC; 



/* DO WAS NOT CLOSED 
BEFORE START OF INTERNAL 
PROCEDURE ♦/ 



xxxxxxxx IS A LABEL OR ENTRY ITEM, 
IS NOT BEING USED AS SUCH. 



BUT 



Explanation ; The named item is an 
LABEL or ENTRY item, but is being used 
for an arithmetic or logical opera- 
tion. For example; 

DCL Ll LABEL; 

A=B+L1; /* ILLEGAL USE OF LABEL ♦/ 



E47 xxxxxxxx IS A STRING LONGER THAN 4 
BYTES BEING USED IN AN ARITHMETIC 
EXPRESSION. 

Explanation ; The named item is a 
string longer than four bytes; there- 
fore, it cannot be used in an arith- 
metic expression. For example; 

DCL A CHAR(6), (X, Y) FIXED; 
X = A + Y; /♦ A IS TOO LONG */ 

E48 A COMPILER ERROR HAS OCCURRED. SUBMIT 
A TROUBLE REPORT TO DEPARTMENT D76, 
BUILDING 706, POUGHKEEPSIE, N.Y. 

Explanation ; Self-explanatory. 
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E49 AN ILLEGAL OR NONEXISTENT REGISTER IS 
BEING RESTRICTED OR RELEASED, OR THE 
STATEMENT IS INCORRECTLY WRITTEN. 



SO 2 THE PROCEDURE OPTIONS ARE INCORRECTLY 
WRITTEN, OR ARE USED IMPROPERLY. 



Explanation ; One of the following: 

• The specified register is reserved 
for use by the compiler. For 
example: 

RESTRICT (13 ) ; Z+RESERVED 
REGISTER*/ 

• The specified register does not 
exist. For example: 

RELEASE (17) ; 

/♦NONEXISTENT REGISTER*/ 

• The statement has a syntax error. 
For example: 

RESTRICT 8; /*SYNTAX ERROR*/ 

• The variable name specified has 
not been declared register. For 
example: 

RESTRICTCX); /♦X HAS NOT BEEN 
DECLARED REGISTER*/ 

E50 xxxxxxxx APPEARS BETWEEN TWO DELIMI- 
TERS THAT SHOULD BE ADJACENT. AN 
OPERATOR MAY BE MISSING. 

Explanation : The named item appears 
between two delimiters that should be 
adjacent. For example: 

LBL CALL X; /* COLON MISSING*/ 

iiSl xxxxxxxx HAS A BIT LENGTH WHICH IS NOT 
AN INTEGRAL NUMBER OF BYTES. LENGTH 
HAS BEEN TRUNCATED. 

Explanation : The name that replaces 
xxxxxxxx is a bit variable substringed 
with variable bounds. Its upper bound 
is specified as the lower bound plus a 
constant. The length specified by the 
bounds is not a whole number of bytes. 
For example: 

DCL B BIT (40) ; 
B(I:I+8)=X; /*ILLEGAL — SPECIFIES 

NINE BITS*/ 
B(I:I+7)=X; /*LEGAL*/ 

Serious Error Messages 

SOI xxxxxxxx IS A STRUCTURE WITH MORE THAN 
255 ELEMENTS. 

Explanation : The named item is a 
structure that contains more than 255 
components. The structure named could 
be a minor structure or it could be 
the major structure. 



Explanation ; One of the following 
errors was found in the procedure 
options: 

• The syntax of the options is in- 
correct. For example: 

1. The options are in the wrong 
position — they must follow 
any parameter list specified. 

2. The registers specified in 
the options CODEREG or 
DATAREG are not enclosed in 
parentheses. 

3. The options are not followed 
by a right parenthesis. 

• An invalid register is specified 
for CODEREG or DATAREG. 

• The same register is specified for 
CODEREG or DATAREG. 

• CODEREG, DATAREG, or REENTRANT is 
specified on an internal 
procedure. 

• SAVE and DONTSAVE are both speci- 
fied for the same procedure. 

• The register list for SAVE or 
DONTSAVE is incorrectly written or 
specifies a nonexistent register. 

S03 ONE OF THE IF STATEMENTS IN THIS NEST 
CONTAINED AN ERROR CAUSING IMPROPER 
MATCHING OF IF ' S AND ELSE'S. 



Explanation : There are several IF 
statements which are nested, and at 
least one of them has an error. The 
ELSE statements which have been been 
processed up to this point will not 
correspond to the correct IF. (This 
message occurs only for a nest of IF 
statements. It corresponds to the E43 
message which is given for single IF 
statements.) For example: 



LI: IF A=B THEN 

L2: IF C=D THEN 

L3: IF E=X|Y THEN /♦ ERROR ON 

THIS IF */ 
LU: IF F=0 THEN FL=0 ; 

ELSE FL=1; /* CLOSES L4 



*/ 



ELSE FL=2; /♦ CLOSES L2 
BECAUSE L3 
WAS FLUSHED */ 
/* CLOSES LI */ 
/* SO 3 MESSAGE GIVEN 
HERE BECAUSE THERE 
ARE NO MORE IFS TO 
CLOSE */ 



ELSE FL=3; 
ELSE FL=4; 
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SO 4 xxxxxxxx IS A MINOR STRUCTURE WHICH 

HAS A TOTAL SIZE GREATER THAN 32,767 

BYTES. THE ENTIRE STRUCTURE IS 
DELETED. 



Explanation ; The named item is a com- 
ponent of a structure that contains 
more than 32,767 bytes. 

Compiler Action : The entire major 
structure is deleted. For example: 

DCL 1 ST, 

2 MINOR, 

3 MINA CHAR (30000) , 
3 MINE CHAR (4 000), 
2 MINOR 2; 
/♦ MINOR HAS A SIZE GREATER THAN 
32,767. THE MAJOR STRUCTURE, ST, 
IS DELETED ♦/ 

505 VARIABLE HAS ILLEGAL REGISTER ATTRI- 
BUTE. REGISTER STORAGE CLASS HAS NOT 
BEEN USED FOR THIS VARIABLE. 

Explanation : The keyword REGISTER is 
not followed by a left parenthesis, or 
the number within the parentheses is 
not a legal register. 

Compiler Action : The REGISTER storage 
class is not used for this variable. 

50 6 VARIABLE HAS ILLEGAL BASED ATTRIBUTE. 
BASED ATTRIBUTE HAS NOT BEEN APPLIED 
TO THIS VARIABLE. 

Explanation ; One of the following 
errors has been found in the BASED 
attribute : 

• The syntax of the ADDR function is 
incorrect. For example; 

DCL BAS BASED (ADDR XXX); 

/* NO PARENTHESIS AFTER ADDR */ 
DCL BAS BASED(ADDR(XYZ) ; 

/* NO CLOSING PARENTHESIS ♦/ 
DCL BAS BASED (ADDR ( XXX+ U ) ) ; 

/♦ OFFSET SHOULD BE OUTSIDE THE 

PARENTHESIS ♦/ 

• The offset from the base is not a 
decimal number, or is greater than 
32,767 bytes. For example; 

DCL A BASED (P+ 4 0000 ) ; 

/* ILLEGAL */ 
DCL B BASED (ADDR (XX) +40000) ; 

/* ILLEGAL */ 

• The absolute value given as the 
base is greater than 32,767. 

Compiler Action ; In all cases the 
variable is treated as a STATIC item. 
(Only the BASED attribute is ignored.) 



S07 VARIABLE HAS AN ILLEGAL NAME IN THE 
BASED ATTRIBUTE. 



Explanation ; The name given as the 
base is not a legal name. For 
example: 

DCL A BASED (12B); /♦ ILLEGAL NAME */ 
DCL C BASED (ADDR (IB ) ) ; 
/* ILLEGAL NAME */ 

SOS xxxxxxxx IS BASED ON AN UNDECLARED OR 
IMPROPERLY DECLARED ITEM. 



Explanation : One of the following 
errors was found in the BASED name: 

• The named item is based on a vari- 
able that has not been declared or 
has been declared other than 
pointer: For example; 

DCL FLG BASED (PFLG); 
/♦ WHERE PFLG IS NOT DCL'D OR NOT 
PTR */ 

• The variable in the ADDR function 
has not been declared. For 
example; 

DCL CODE BASED(ADDR(FIELD)) ; 
/* WHERE FIELD HAS NOT BEEN 
DECLARED ♦/ 

• The named item is based on a 
dimensioned variable. For 
example; 



DCL NMPTS(IO) PTR; 

DCL XPT BASED ( NMPTS ) ; 

/* ILLEGAL BECAUSE NMPTS IS A 
DIMENSIONED VARIABLE */ 



S09 MORE THAN 50 ITEMS HAVE BEEN FACTORED. 
A RIGHT PARENTHESIS WAS ASSUMED AFTER 
THE 50TH ITEM. 

Explanation ; More than 50 variables 
appear inside parentheses as factored 
items . 

Compiler action ; The statement is 
processed as if there were a right 
parenthesis after the 50th item. 



SIO VARIABLE IS BASED ON THE ADDRESS OF A 
REGISTER. 

Explanation ; A variable is declared 
BASED, using the ADDR function, and 
the name in the ADDR fxinction is the 
name of a register variable. For 
example; 
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DCL Rl REG(l) ; 

DCL VBL BASED(ADDR(R1)) ; 

/* ILLEGAL USE OF REGISTER VARI- 
ABLE */ 

Sll xxxxxxxx HAS MORE THAN ONE DIMENSION. 

ONLY THE FIRST DIMENSION HAS BEEN S16 
ACCEPTED. 



Explanation ; The named item is an 
element of a dimensioned structure, 
and the item itself is also dimen- 
sioned. For example: 

DCL 1 CDIMG(IO) ; 

2 NMS CHAR (20), 

2 CDS (5); /*ILLEGAL DIMENSION*/ S17 

compiler Action ; Only the dimension 
on the containing structure is 
accepted. 



S12 xxxxxxxx IS MORE THAN 32,767 BYTES 
FROM THE BEGINNING OF A STRUCTURE. 
THE STRUCTURE IS DELETED. 

Explanation : The named item is a com- 
ponent of a structure, and is offset 
more than 32,767 from the start of the S18 
structure. For example: 

DCL 1 COM, 

2 AREA CHAR (32767), 
2 IND CHAR(l); /♦ OFFSET GREATER 
THAN 32767 */ 



needs at least four registers to 
address XREC: one for the ADCON, one 
for the subscript, one for the sub- 
string, and one to do an EXECUTE of an 
MVC instruction. 

NO EVEN/ODD PAIR OF REGISTERS IS 
AVAILABLE TO DO A MULTIPLICATION THAT 
IS PART OF A SUBSCRIPT CALCULATION. 



Explanation : The compiler needs an 
even/odd pair of registers to do a 
multiplication that is part of a sub- 
script calculation. No such pair of 
registers is available. 

VARIABLE FOLLOWING "END" DOES NOT 
MATCH THE LABEL ON ANY OPEN DO 
STATEMENT . 



Explanation : The name given on the 
END statement does not correspond to 
the label on any previous DO 
statements. 

Compiler Action ; All open DO state- 
ments will be closed. 

THE STATEMENT IS TOO LONG. A STRING 
CONSTANT MAY HAVE A MISSING QUOTE. 
THE STATEMENT HAS NOT BEEN COMPILED. 

Explanation ; The statement is too 
long, for one of the following 
reasons: 



S13 



Compiler Action : The entire major 
structure is deleted. 

NO REGISTER IS AVAILABLE FOR ADDRES- 
SING EXTERNAL DATA. 



A DECLARE statement is too long 
for the compiler to process, (The 
compiler can handle approximately 
1000 characters, not counting 
blanks. ) 



Explanation : A register is needed to 
obtain the address of an external 
item, but there are no registers 
available to the compiler. 

514 NO REGISTERS ARE AVAILABLE FOR CALCU- 
LATING SUBSCRIPTS OR SUBSTRINGS. 

Explanation ; A register is needed to 
calculate an index, but there are no 
registers available for the compiler's 
use. 

51 5 NOT ENOUGH REGISTERS ARE AVAILABLE FOR 
THIS COMPUTATION. 



S19 



• A string constant does not have a 
closing quote, in which case all 
statements following the string 
are taken as part of the string. 
(One indication of this is that no 
statement numbers will be printed 
for the statements that follow the 
string. ) 

A PROCEDURE OR ENTRY STATEMENT IS 
INCORRECTLY WRITTEN. 

Explanation ; One of the following 
errors was found in a PROCEDURE or 
ENTRY statement: 



Explanation : Not enough registers are 
available to generate code for a 
statement that needs a number of regi- 
sters. For example; 

DCL CRSTR CHAR (10 ); 

DCL XREC (5) EXTERNAL CHAR(50); 

XREC(L,I:J) = CRSTR(K:10) ; 



• The syntax of the statement is 
incorrect . For example : 

1. The keyword is not preceded 
by a name. 

2. More than one name precedes 
the keyword. 
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The procedure name is declared as 
other than ENTRY. 

An ENTRY statement has parameters, 
but the procedure it is contained 
in has no parameters. 



S20 MORE THAN 75 UNIQUE DECIMAL CONSTANTS, 
OR MORE THAN 75 NONLOCAL EXTERNAL 
ITEMS HAVE BEEN USED. 

Explanation ; The compiler can handle 
a maximum of 75 vinique decimal con- 
stants, or 75 NONLOCAL EXTERNAL items, 
in a single compilation. 



S21 THERE ARE MORE THAN SEVEN IMPLICIT OR 
SEVEN EXPLICIT POINTERS IN A CHAIN. 

Explanation ; A statement has more 
than seven levels of one type of 
pointer. (With a combination of both 
types, a statement may have up to 14 
pointers.) For example; 

P1->P2->P3->P4->P5->P6->P7->P8->X = 0; 

is a string of explicit pointers, and 
is illegal because there are more than 
seven. The next example; 

DCL PI PTR, P2 PTR BASED(Pl), 
P3 PTR BASED (P2), P4 PTR 
BASED (P3) , 

PS PTR BASED (P4), P6 PTR 
BASED (P5) , 

P7 PTR BASED(P6), P8 PTR 
BASED (P7) , 
X BASED (P8) ; 



contains implicit pointers. To locate 
X implicitly, more than seven pointers 
are required. Thus, the assignment X 
= 0; would be illegal. The next 
example; 

P7->PA->PB->X = 0; 

involves more than seven pointers, but 
is legal because there is a combina- 
tion of implicit and explicit 
pointers. 



Disastrous Error Messages 



DOl PROGRAM HAS TOO LARGE A DATA AREA. 
CONSULT 'BSL USER'S GUIDE*. 

Explanation ; A data item is more than 
32,767 bytes from the start of the 
data area. This problem involves the 
offset from the beginning of the data 
area, not the total size. Once 32,767 



D02 



D03 



DO 4 



bytes of data are declared, no addi- 
tional data can be declared. For 
example; 

DCL INTERFAC CHAR (32767); 

DCL CODE CHAR (2) ; /♦ ILLEGAL */ 

If the above example is reversed, the 
declarations are legal. For example; 

DCL CODE CHAR (2) ; 

DCL INTERFAC CHAR (32767) ; 

/* LEGAL BUT NO DATA CAN BE 
DECLARED AFTER INTERFAC */ 

THE PROGRAM IS TOO LARGE. THE DIC- 
TIONARY SPACE HAS BEEN FILLED. SEE 
SIZE OPTION IN 'BSL USER'S GUIDE'. 



Explanation ; The number of data items 
in the program is more than can be 
handled in the compiler's dictionary 
space. 

User Response ; Use the SIZE option to 
specify a larger dictionary (OS only) , 
or remove some data items from the 
program. 

THE PROGRAM IS TOO LARGE. THE SPACE 
ASSIGNED FOR DICTIONARY, INITIAL 
VALUES, AND CROSS REFERENCE TABLES IS 
FILLED. 

Explanation ; The program is too large 
because of the number of data items, 
the ntamber and size of initial values, 
and the number of references to the 
data items. 



User Response ; 
following; 



One or more of the 



• Use the SIZE option to specify a 
larger dictionary (OS only). 

• Use the NOXREF option to suppress 
the attribute and cross-reference 
table. 

• Reduce the number or size of ini- 
tial values by initializing the 
items dynamically. 

TOO MANY STRING CONSTANTS HAVE BEEN 
USED. 

Explanation ; The total number of 
characters in string constants (hexa- 
decimal, bit, and character) is too 
large. There are about 1400 bytes 
available to hold these constants, and 
the compiler does eliminate duplicate 
strings. 

User Response ; Change the constant to 
a variable and initialize it. 
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DOS THE END OF AN INTERNAL PROCEDURE 13 
NOT FOLLOWED BY THE END FOR THE CON- 
TAINING PROCEDURE OR A NEW INTERNAL 
PROCEDURE . 



Explanation ; The END statement of an 
internal procedure was not followed by 
another internal procedure or the END 
statement for the external procedure. 

D06 THERE ARE MORE THAN 14 INTERNAL 
PROCEDURES. 

Explanation ; The total number of pro- 
cedures that can be handled in one 
compilation is 15, including the 
external procedure. It does not mat- 
ter if the internal procedures are 
nested or disjoint. 

D07 THERE ARE MORE THAN 8 DO STATEMENTS IN 
A NEST. 



Statement is the close for the DO, and 
then look for another END statement. 



Dll AN INCLUDE OPTION APPEARS WITHIN 
INCLUDED TEXT. 



Explanation ; Included text may not 
contain an INCLUDE option. 



D12 THE INCLUDE OPTION IS INCORRECTLY 
WRITTEN. 



Explanation ; The ddname or member 
name is too long. 



D13 THE INCLUDE OPTION ASKS FOR A LIBRARY 
MEMBER THAT CANNOT BE FOUND IN THE 
SPECIFIED LIBRARY. 



D09 



DIO 



Explanation ; More than eight DO 
statements are open at the same time. 



User Response ; 
DO statements . 



Break up the nest of 



DOS THERE ARE MORE THAN lU IF STATEMENTS 
IN AN IF NEST. 

Explanation ; More than 14 IF state- 
ments are open at the same time. 

User Response ; Break up the nest of 
IF statements. Branch out on one of 
the IF statements, and continue with 
another IF nest at the branch point. 



THERE ARE MORE THAN 50 TRUE/FALSE 
BRANCHES IN A NEST OF IF STATEMENTS. 

Explanation ; The total number of 
true/false branches in a nest of IF 
statements is the sirai of the number of 
IF statements and the number of logic- 
al connectives in the IF statements. 
This number cannot be greater than 50, 



User Response ; 
IF statements. 



Simplify the nest of 



THREE CONTROL CHARACTERS OR AN END OF 
FILE HAS BEEN ENCOUNTERED BEFORE ALL 
PROCEDURES HAVE BEEN CLOSED. 



E xplanation ; The member name speci- 
fied in the INCLUDE option cannot be 
found in the specified partitioned 
data set. 

User Response ; Check the spelling of 
the member name in the INCLUDE state- 
ment, and check the data set name on 
the DD statement indicated in the 
INCLUDE option. 



D14 AN I/O ERROR HAS OCCURRED WHILE 

SEARCHING FOR THE REQUESTED MEMBER IN 
THE USER'S LIBRARY. 

Explanation ; I/O error. 



D15 THE PARTITIONED DATA SET SPECIFIED IN 
THE INCLUDE OPTION HAS A BLKSIZE 
GREATER THAN 3520 OR A RECFM OTHER 
THAN F. 

Explanation ; The partitioned data set 
may contain blocked records up to a 
block size of 3520 bytes, and must 
contain fixed format records. 

User Response ; Respecify the block 
size or record format of the data set 
and run the job again. Make sure that 
the INCLUDE option specifies the 
correct data set. 



Explanation ; At least one procedure 
is open, and three control characters 
or end of file has been read. 

This error could be caused by a DO 
statement which does not have a corre- 
sponding END statement. The compiler 
would assume that the procedure's END 



D16 MORE THAN 2559 COMPILER GENERATED 
LABELS HAVE BEEN USED. 

Explanation ; This is the maximum 
count of labels generated for DO 
statements, IF statements, and CALL 
statements. The count does not 
include any labels on data. 
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User Response ; Reduce the number of 
IF, DO, and CALL statements. 

D17 COMPILATION HAS BEEN TERMINATED 

BECAUSE OF SOURCE ERRORS THAT HAVE 
OCCURRED PREVIOUSLY. FIX ERRORS AND 
RERUN. 

Explanation ; The compilation cannot 
continue because of the errors that 
occurred previously. 

User Response ; Correct the errors and 
recompile. 

D18 A COMPILER ERROR HAS OCCURRED. SUBMIT 
A TROUBLE REPORT TO DEPARTMENT D76, 
BUILDING 706, POUGHKEEPSIE , N.Y. 

Explanation : Self-explanatory. 

D19 INCORRECT INVOCATION OF BSL COMPILER 

Explanation ; A compiler error has 
occurred while trying to process the 
parameters passed to the compiler when 
it is dynamically invoked. The fol- 
lowing kinds of errors could cause a 
compiler error: 

• Register 1 contains an invalid 
address. 

• Register 1 contains an address 
that is not on a fullword 
boundary . 

• The address parameters to which 
register 1 points are not valid 
addresses. 

• The second address parameter (list 
of alternate ddnames) has been 
omitted and the high order bit of 
the first address has not been set 
to one. 

• No compiler options or alternate 
ddnames have been specified, and 
the high order bit of the first 



address has not been set to one, 
or the first address parameter has 
been omitted, or the first address 
parameter does not point to a 
half word of zeros on a half word 
boundary. 

• One or both address parameters 
contain an address that is not on 
a halfword boundary. 

User Response ; Correct the calling 
sequence for the dynamic invocation of 
the BSL compiler. If the problem per- 
sists, submit a trouble report to 
Department D76, Building 706, Pough- 
keepsie. New York. 

D20 THREE CONTROL CHARACTERS OR AN END OF 
FILE APPEARS WITHIN A BLOCK GENERATE. 

Explanation ; Three control characters 
or an end of file has been read while 
BSL source input is still being pro- 
cessed as the text statements of a 
block GENERATE. The corresponding 
$ENDGEN control statement for the 
block GENERATE is missing. 

D21 THREE CONTROL CHARACTERS OR AN END OF 
FILE APPEARS WITHIN A COMMENT. 

Explanation ; Three control characters 
or an end of file has been read before 
the comment terminator (*/) of a com- 
ment was found. An indication of this 
error is that the statements following 
the comment will not have statement 
numbers . 

D22 THREE CONTROL CHARACTERS OR AN END OF 
FILE APPEARS WITHIN A STRING CONSTANT. 

Explanation ; Three control characters 
or an end of file has been read before 
the closing quote of a string con- 
stant. An indication of this error is 
that the statements following the 
string constant will not have state- 
ment niambers. 
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Index 



$$$ delimiter 19 

in DOS compilation 32 

in OS compilation ^6 

in table 12 

Address constants 57, 86 

Address restrictions 68-69 

Addressability 

for AUTOMATIC data 35, U7, 63-64 

conventions 60-61 

for tracing , 25 

Alternate ddnames , 49-51 

ANNOTATE option 24 

in table 14 

Argument lists 81-84 

Arrays 65 

Arithmetic expressions 74-78 

Arithmetic items 69 

ASSEM option 22-23 

in DOS compilation 31-34 

in OS compilation 43 

in table 14 

Assembler text 

comments 23-24 

compiler-generated 9-10 

labels generated for 57-59 

listing of 20-24 

punching of 22 

sequence niambers 20-21,23-24 

storage of 22-23 

suppression of 21 

tracing code 25-27 

Assembly 

DOS 33-35 

OS 46-49 

Assignment statements 69-70 

Asterisk 

in assembler text 24 

in cross-reference table 21 

Attribute and cross-reference table . 20-21 

Attributes, data set 42-43 

for included text 52-53 

AUT01>'JATIC data 35,47,63-64 

Base register 60-61 

BASED attribute 68-69 

Batch compilation 

delimiter for 19 

DOS 32 

OS 45-46 

Bit Strings 

length of 65 

scanning of , 87 

setting to zero , 87 

use of , 68-73 

Block size 43,53 

Boundaries 85 

BSLALG cataloged procedure 

description of 48 

use of , 47-49 



BSLASM cataloged procedure 

description of 44 

use of 46-47,49 

BSLLDM data set 39-41 

BSLLIB data set 39-41,52 

BSLOUT 27 

BSLX cataloged procedure 

description of 44 

use of 45-46 

Buffers 43 

changing size of 90 

number of 43 



CALL statements 

argument lists for 82-8 3 

for library routines 36,51 

restrictions 66 

tracing at 25-26 

Cataloged procedures 

cataloging 41 

description of 43-45 

use of 4 5-49 

Character strings 

length of 65 

propagating 87 

use of b9-73 

CLEAR 56 

CODEREG procedure option 6 

Comments, assembler text 23-24 

Common area 87 

COMP data set 4 

Comparison expressions 70-71 

Compilation and assem.bly 

DOS 3 3 

OS 4 6-47 

Compilation, assembly, and execution 

DOS 34-35 

OS 47-4 8 

Compilation without assembly 

DOS 32 

OS 45-46 

Compiler, BSL 

DOS 29-38 

dynamic invocation of 49-51 

macro phase 18 

operation of 9 

options 12-28 

OS 39-56 

output 20-24 

Compiler-generated code 74-7 9 

Compile-time macro facility 18-19 

Compile time macro processor 8 9-90 

Completion codes 14 9 

CONCHAR option 17 

in table 12 

(see also control character) 

Console messages 14 9 

Constants 65 

Control cards 15-16 

(see also options, compiler) 
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Control character 

in $$$ delimiter 19 

with CLEAR 18,56 

for control statements 15-16 

for macro statements 18 

option for 17 

Control program services 

DOS 35-36 

OS 51-52 

Control section 57 

for TESTRAN 55 

Control statements 15-16 

(see also options, compiler) 

Conventions 57-73 

Conversion of data 36,52 

Core image library 30 

Cross-reference table 20-21 

DATAREG procedure option 60 

Data sets, OS requirements 42-43 

DCB attributes 42-43 

for included text 53 

ddname 54 

Defaults 

boundaries 85 

compiler options 12-14 

data set attributes 42-43 

Device types 

DOS 30-31 

OS 43 

Diagnostic messages (see messages) 

Dictionary size 16-17 

with CLEAR 56 

Disastrous error messages 

compile phase 167-169 

macro phase 154 

(see also messages) 

Displacement 68-69 

Distribution package, BSL 

DOS 29-30 

OS 39-41 

DO loops 65,86 

Dollar sign 16-19 

with CLEAR 18,56 

with INCLUDE 54 

DONTSAVE procedure option 35, 63 

DOS 29-38 

Dumps 36,52 

Dynamic invocation ■. 49-51 

example of 137-146 

Dynamic storage 63-64 

EDIT routine 36,52 

EJECT option 22 

in table 13 

END statement 67 

ENDGEiSl statement 19 

in table 12 

Entry points 

for library routines 36,52 

parameters 67-68 

restrictions 65 

tracing at 25-27 

EOJ macro instruction 35 

ERRIISiT routine 52 

Error messages 

compile phase 158-164 



macro phase 151 

(see also messages) 

EXEC statement, parameters of 15-18 

Execution 

DOS 34-35 

OS 47-49 

External procedures 

compiler input 30,42 

separation of 19 

use of 80 



Factored attributes 66 

Files, DOS requirements 3 0-31 

I Fixed data 76 

Free-form options 15-16 



Generalization 90 

GENERATE statement 

DOS 35 

end of 19 

example of 99-108 

forms of 8 8 

OS 51 

techniques 88-89 

GETMAIN macro instruction 35,47,63-64 

GENMGIN option 18-19 

in table , 12 



Identification name 21 

lEBUPDTE Utility program 41,53 

lEHMOVE utility program . ., 39,41 

IF statements 66,70-71,80 

IKETRCOF switch 28 

INCLUDE macro statement 52-53 

INCLUDE option 18 

with CLEAR 56 

in table 12 

use of 53-54 

INCR option , 23 

in table 13 

Information listings 10-11,20-24 

Initialization 69 

Arithmetic items -. 69 

String items 69 

Input 

DOS 30-31 

OS 42-43 

statements 15-18 

Input/output library routines 

DOS 36 

OS 52 

INTER option 24 

in table 14 

Internal procedures 63-64, o7-6 8 

Interrupt handler 

DOS 3 6 

OS 52 



Job control statements 

DOS 32-35 

OS 45-49 

TESTRAN 55 

JOBLIB DD statement 39-40,46-48 
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Labeled statements, tracing 26-27 

Labels, compiler-generated 57-58 

Library, BSL 

DOS 29-30,36-37 

OS 39-42,51-52 

tracing routines in 27 

LINE option 22 

in table 13 

Link library 39,46-48 

Linkage conventions 61-63 

Linkage edit 

DOS 33-35 

OS 47-49 

Listings 20-24 

Load module 9 

Location free code ,. 86 

Machine configuration 9,29 

Macro library 47-48,56 

MACRO option 18 

in table 12 

Macro phase 18 

Macro source listings 93,95,97 

Macro statements, restrictions 66 

Margins ....* 17-19 

Member name 54 

Merged listings 24 

Messages 

compile phase 155-169 

console 149 

macro phase 150-154 

numbering of 147 

return codes 149 

severity levels 147-148 

MSGLEVEL option , 21 

in table , 13 

Nested statements 66,80 

NOASSEM option 23 

in table 14 

NOLIST option 21 

in table 13 

NOPAGE option 22 

in table 13 

NOSAVEAREA procedure option 25, 63 

NOSEQ option 24 

in table 14 

NOSNUMBER option 23 

in table 13 

with tracing 25 

NOXREF option 21 

in table 13 

Object deck 30,34-35,48 

Object margin 14, 19 

Object module 9, 48 

Offset value 25 

Optimum code, obtaining 84-86 

Options, compiler 12-28 

with CLEAR 56 

with dynamic invocation 49-50 

OPTIONS (VLIST) 82-83 

OS 39-56 

Output, compiler 20-24 



Page eject 22 

Page headings 20-22 

Page nvmlbers ,. 20-22 

PAGE option 22 

in table 13 

PARAMETER attribute 21 

Parameterization 90 

Parameters 

avoiding reference to 83-84 

for CLEAR 56 

for dynamic invocation 49-51 

for TESTRAN 55 

of EXEC statement 15-16 

of procedures 21,b7-6 8 

programming techniques ..o 80-97 

PARM field 15-16 

PDUMP routine 36,52 

Percent sign 18,54 

PL/I macro processor 18 

Pointer data 77-78 

Pointers 66 

Precision 77 

Private library 39-41 

Procedure library 41 

Programming techniques 80-97 

PUNCH option 22 

DOS 31-32 

OS , 43,45 

in table 14 

Record format 43,53 

-Record length 43,53 

Reentrant procedures bl-63 

DOS 35 

OS 4 8 

register conventions bO-61 

return code 84 

Region 56 

Registers 

attri but e 69 

conventions 60-61 

evaluating in 74-75 

options bO-61 

passing argiiments in 8 2 

usage of 74-75 

variables in 68,82-83 

RESEQ Option 24 

in table 14 

Reserved words 67 

RESTRICT statement 8 4 

Restrictions 

address i 68 

bit constant comparison 71 

bit variable comparison 71 

CALL statement 66 

comparison operators 71-72 

compiler control statement 15-16 

entry point 65 

initializing arithmetic items 6 9 

initializing string items 69 

language b7-7 3 

macro statement 66 

parameter reference 83 

procedure format 80 

size 65-66 

subscript notation 71-72 

substring notation 72-73 

variables 71-73 
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Return code 

from compiler 149 

from source program 61-62,84 

RETURN statements, tracing 26-27 

Routines, tracing 26-27 

Save area 25,61,63 

SAVE procedure option 63 

Search argument 88 

Self-relocating code 86 

SEQ option 23 

in table 13 

Sequence number 20, 23 

Serious error messages 

compile phase 164-167 

macro phase 151-153 

(see also messages) 

severity levels 147-148 

SIZE option 16-17 

in table 12 

Size restrictions 65-66 

SORMGIN option 17 

in table 12 

Source code, altering 96-97 

Source margins 17 

with CLEAR 56 

Source program 

format of 8 

listing of 20-24 

modification of 18-21 

translation of 9,57 

Statements 

guidelines for 80 

margins of 17 

numbers of 20-24 

Storage requirements 9 

DOS 29 

OS 39 

Strings 

length of 65 

techniques 87 

use of 69-73 

Structures 65 

Subs cript 71 

SUBSTR routine 36,52 

Substring 71 

SYSIN 42-43 

SYSIPT 31 

SYSLST 27,31 

SYSOUT 42-43 

SYSPCH 22,31 



SYSPUNCH 22,42-43 

SYSTEST 55 

SYSUTl 23,42-43 

SYSUT2 23,42-43 

SYSUT3 , 18,42-43 

SYSOOl 22,31 

SYS002 18,31 

SYS003 o , 31 

Taole search ,.. 88 

Temporary locations 85 

TESTRAN 55 

example of 120-136 

TIME option 22 

in table 13 

TITLE option 22 

in table 13 

TRACE statement 25 

in table 14 

TRACE OFF Statement » 2 5 

in table 14 

TRACE ON statement 25 

in table 14 

Tracing 25-28 

example of 109-119 

return code 84 

Translation 9 

Unlabeled statements, tracing 26 

Variable parameter lists 82-83 

Variables 

in GENERATE statement 89 

listing of 20-21 

in registers 84-85 

restrictions 65 

Volume serial ntimber 39-4 

Warning messages 

compile phase » 155-15 8 

macro phase 150 

suppression of 21 

(see also messages) 

XREF option 21 

in table 13 
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